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1.  INTRODUCTION 


This  manual  is  a  programmer’s  guide  to  the  Numerical  Electromagnetic  Engineering  Design  Sys¬ 
tem  (NEEDS)  Version  3.1  software  program.  NEEDS  was  developed  to  assist  users  of  the  Numerical 
Electromagnetics  Code  -  Method  of  Moments  (NEC-MoM).  NEC-MoM  requires  rigidly  defined 
inputs  and  often  generates  massive  quantities  of  output.  NEEDS  makes  NEC-MoM  less  tedious  and 
more  error-free.  NEEDS  3.1  is  specifically  designed  for  NEC-MoM  Version  4  users. 

This  manual  is  not  required  reading  for  users  of  NEEDS  3.1 .  It  is  designed  to  provide  program¬ 
mers  with  insight  into  how  NEEDS  3.1  was  developed  and  implemented  on  a  UNIX  workstation. 
NEEDS  was  specifically  tailored  to  the  Intergraph  Workstation  and  its  CLiX  operating  system.  This 
manual  can  assist  programmers  developing  similar  user  interfaces  to  sophisticated  computational 
codes.  This  manual  details  the  programming  environment  used  for  NEEDS  as  well  as  the  installation 
procedures.  The  appendix  contains  source  code  listings  for  all  the  major  modules  used  in  NEEDS. 

Consult  the  NEEDS  Version  3.1  User’s  Manual  (Lam,  Rockway,  Russell,  and  Wentworth,  1995) 
for  specific  guidance  on  how  to  run  NEEDS.  Refer  to  Burke  (1992)  on  how  to  use  NEC-MoM  Ver¬ 
sion  4. 

Throughout  this  document,  the  word  NEEDS  refers  specifically  to  NEEDS  3.1. 


2.  PROGRAMMING  ENVIRONMENT 

NEEDS  was  written  entirely  in  the  C  programming  language.  The  previous  version  of  NEEDS 
(3.0)  had  several  accessory  programs  that  performed  filtering  of  the  NEC  input  and  output  data  sets. 
These  programs  had  been  written  in  FORTRAN  since  they  predated  NEEDS  development.  In 
NEEDS  3.1,  these  accessory  programs  have  been  rewritten  in  C  and  merged  into  NEEDS. 

2.1  COMMON  USER  INTERFACE  (CUI) 

Since  NEEDS  was  developed  as  part  of  the  Naval  Sea  Systems  Command  (NAVSEA)  ElectroMag- 
netic  Engineering  (EMENG)  system,  it  was  required  to  conform  to  the  EMENG  CUI.  This  require¬ 
ment  ensures  a  common  look  and  feel  for  all  EMENG  software  users.  The  software  must  run  on 
NAVSEA’s  CAD  2  (Intergraph)  workstation  and  must  be  implemented  using  the  X  Window  System 
environment  and  the  Motif  toolkit.  This  allows  NEEDS  to  be  easily  ported  to  other  UNIX-based 
workstations.  The  EMENG  CUI  is  documented  in  Volume  VI  of  Rockwell  (1994a). 

NAVSEA  EM  Engineering  requirements  also  specify  that  all  software  must  be  developed  using 
freely  available  tools.  In  other  words,  commercial  software  packages  could  not  be  used  since  all 
source  code  must  be  freely  shared.  This  created  a  dilemma  in  developing  the  graphics  part  of  the 
NEEDS  package.  The  Simple  Raster  Graphics  Package  (SRGP)  and  Rockwell’s  XGraphics  library 
provided  a  solution. 

2.2  SRGP 

The  SRGP  library  is  freely  available  over  the  Internet.  It  was  developed  at  Brown  University 
(Foley,  van  Dam,  Feiner,  and  Hughes,  1990).  SRGP  is  a  library  of  functions  for  creating  2-D  engi¬ 
neering  graphs.  It  can  be  used  independently  of  other  software. 
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Workstations  running  UNIX  and  XI 1  must  meet  the  following  requirements  to  compile  SRGP: 

1 .  X 1 1  release  4 

2.  American  National  Standards  Institute  (ANSI)  C  compiler  (GNU’s  gcc  is  recommended  but  not 
required) 

3.  Either  4.3  Berkeley  Standard  Distribution  (BSD)  or  System  V  UNIX 

The  software  is  available  from  an  Internet  ftp  site.  For  more  information,  prepare  an  e-mail  with  the 
words  “Software-Distribution”  in  the  Subject  line  and  send  it  to: 

“graphtext@cs.brown.edu” 

Software  modifications  allow  the  mixing  of  SRGP  routines  with  Motif.  This  allows  Motif  to  main¬ 
tain  control  of  the  focus  instead  of  SRGP.  Programmers  can  incorporate  the  drawing  routines  into 
NEEDS  instead  of  using  a  stand-alone  program. 

2.3  XGRAPHICS 

XGraphics  is  a  library  of  3-D  drawing  functions  written  for  NAVSEA.  The  XGraphics  library  con¬ 
tains  routines  that  simplify  the  creation  of  graphical  images  by  the  application  programmer.  XGraph¬ 
ics  is  designed  to  work  in  the  X  Window  environment.  It  is  loosely  based  on  the  Graphical  Kernal 
System  (GKS)  3-D  standard. 

During  NEEDS  3. 1  development,  XGraphics  did  not  provide  a  2-D  engineering  graphing  capabil¬ 
ity;  therefore,  it  was  used  solely  within  NEEDS  to  provide  3-D  visualizations.  SRGP  was  used  to 
provide  2-D  engineering  graphs  for  NEEDS. 

Information  on  how  to  obtain  XGraphics  may  be  obtained  from  the  Naval  Sea  Systems  Command 
(Code  03K24). 

2.4  MOSAIC 

NEEDS  is  a  complex  program  with  hundreds  of  input  boxes.  As  a  result,  it  required  a  fairly 
sophisticated  Help  facility.  This  Help  facility  was  developed  using  Mosaic.  Mosaic  is  a  program  for 
interfacing  with  the  World  Wide  Web  (WWW)  of  information  servers.  Its  hypertext  capability  allows 
users  to  quickly  jump  through  information  and  files.  It  is  an  excellent,  freely  available  tool  for  devel¬ 
oping  hypertext  Help.  Mosaic  files  have  the  extension  “.html”,  which  stands  for  hypertext  markup 
language.  There  are  many  tools  available  for  developing  “.html”  files. 

Mosaic  source  code  can  be  obtained  from: 

1 .  “ftp  ncsa.uiuc.edu”  in  the  directory  “/Mosaic”,  or 

2.  “sunsite.unc.edu”  in  the  directory  “/pub/packages/inforsystems/WWW”. 

Compressed  binaries  are  available  for  many  different  UNIX  platforms.  The  compression  is  done 
using  “gzip”,  which  is  freely  available  on  the  Internet.  The  files  “gzip”  and  “gunzip”  can  be  obtained 
from  “prep.ai.mit.edu”  in  “/pub/gnu/gzip-*”.  (The  “*”  refers  to  the  most  recent  release/version).  If 
this  site  is  no  longer  available,  use  one  of  the  Internet  search  engines  to  find  these  files  at  another  ftp 
site. 
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3.  INSTALLATION  PROCEDURES 


NEEDS  3.1  was  designed  to  run  on  an  Intergraph  workstation  with  a  C400  processor  under  the 
UNIX  operating  system  and  the  X  Window  System.  NEEDS  3.1  also  requires  the  installation  of  the 
following  shared  libraries: 

1 .  libXm_s.a 

2.  libXt_s.a 

3.  libXl  l_s.a 

4.  libc_s.a 

These  files  are  .normally  found  in  the  “/usr/lib”  directory.  At  least  20  MB  of  disk  space  should  be 
allowed  for  the  NEEDS  3.1  executable  file  and  various  auxiliary  files. 

The  procedure  for  installing  and  compiling  NEEDS  is  fairly  straightforward.  If  compilation  of 
NEEDS  and  its  accessory  programs  is  required,  then  a  C  compiler,  “cc”,  must  be  installed  on  the  sys¬ 
tem  (such  as  in  the  directory  “/usr/bin”).  The  Makefiles  can  be  modified  to  reflect  the  names  of  the 
compilers  on  the  specific  system.  Starting  with  the  file  “needs. tar.Z”,  follow  this  procedure: 

1 .  Type  uncompress  needs.tar.Z  to  uncompress  “needs.tar”. 

2.  Type  tar  -xvfo  needs.tar  to  restore  the  file  structure  under  “/needs3.1/”. 

3.  Type  cd  needs3.1/sphigs/srgp  to  move  to  the  SRGP  directory. 

4.  Type  make  to  compile  the  SRGP  library. 

5.  Type  cd  ../../xgraphics/xgclib  to  move  to  the  XGraphics  directory. 

6.  Type  make  to  compile  the  Xgraphics  library. 

7.  Type  cd  to  move  to  the  NEEDS  directory. 

8.  Type  make  to  compile  NEEDS  and  create  the  needs  executable  file.  (Be  sure  the  Makefiles 
point  to  the  correct  locations  for  the  SRGP  and  XGraphics  libraries). 

The  binary,  “mosaic”,  must  be  in  a  directory  in  the  user’s  path  (such  as  /usr/bin)  to  access  the  Help 
facility.  The  app-defaults  file  “NEEDS”  must  be  in  the  directory  “/usr/lib/Xll/app-defaults”.  This 
file  contains  the  default  values  for  the  X  resources  that  are  associated  with  the  NEEDS  3.1  program. 
The  initialization  file  “.Needs”  must  be  in  the  user’s  home  directory. 

The  NEEDS  executable  program  is  “needs”.  To  execute  the  NEEDS  program,  type  needs.  After 
testing  NEEDS,  the  system  manager  may  want  to  put  it  in  a  common  path  such  as  the  directory 
“/usr/bin”. 


4.  NEEDS  SOURCE  FILES 

The  needs  program  consists  of  many  source  files  linked  together.  A  separate  source  file  exists 
for  each  window  in  NEEDS.  The  file  names  are  fairly  descriptive.  For  example,  the  files  “cNode- 
Coord.c”  and  “fNodeCoord.c”  contain  the  callbacks  and  procedures  (respectively)  for  the  Node  Coor¬ 
dinates  Window.  The  NEEDS  Makefile  is 


SRGPDIR  =  ,/sphigs/srgp 
EMENG  =  ,/xgraphics/includes 
XGRAPHICS  =  ./xgraphics/xgclib. a 
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OBJS  =  control.o  widgets.o  dialogs. o  cFileMenu.o  cResultMenu.o  cOutputMenu.o  \ 
cNodeCoord.o  cSWire.o  cTaperWire.o  \ 

cCantWire.o  cWireArc.o  cHelix.o  cFrequency.o  clncident.o  cLoads.o  \ 
cTransLine.o  c2PortNet.o  clnsulate.o  cVoltage.o  cMomExport.o  \ 
cMomlmport.o  cTransform.o  cRotation.o  \ 
cReflection.o  cMaxCoupling.o  cNearElect.o  cNearMag.o  \ 
cRadiation.o  cPrintOption.o  cMeshes.o  cSurfPatch.o  cMultiPatch.o  \ 
cAddGround.o  cUpMedParam.o  cGroundParam.o  cDiagnostics.o  \ 
cNeedControl.o  cEditGeo.o  cVisual.o  \ 
fNodeCoord.o  fSWire.o  fLoads.o  fTransLine.o  f2PortNet.o  \ 
flnsulate.o  fVoltage.o  fMomExport.o  \ 

fTaperWire.o  fCantWire.o  fWireArc.o  fHelix.o  fFrequency.o  flncident.o  \ 
fMomlmport.o  fTransform.o  fRotation.o  fReflection.o  fMaxCoupling.o  \ 
fNearElect.o  fNearMag.o  fRadiation.o  fPrintOption.o  \ 
fMeshes.o  fSurfPatch.o  fMultiPatch.o  fAddGround.o  fUpMedParam.o  \ 
fGroundParam.o  fNeedControl.o  fEditGeo.o  fComments.o  callbacks.o  \ 
fDiagnostics.o  fNecExecute.o  fHelp.o  needsplt.o  fVisual.o  \ 
fDescrip.o  needsflt.o  geofilt.o  necdisp.o  \ 
spiral. o  modify.o  all.o  status.o  checklist.o  dxf.o  rdlsol.o 

#  Files  dependent  on  cFileMenu.h 

FM  =  cFileMenu.o  cMomExport.o  cMomlmport.o  checklist.o  dxf.o  \  fComments.o  fDescrip.o 

#  Files  dependent  on  control. h 

CL  =  fNodeCoord.o  fSWire.o  fTaperWire.o  fCantWire.o  \ 
fWireArc.o  fHelix.o  fFrequency.o  flncident.o  fLoads.o  \ 
fTransLine.o  f2PortNet.o  flnsulate.o  fVoltage.o  \ 
fMomExport.o  fMomlmport.o  fTransform.o  fRotation.o  \ 
fReflection.o  fMaxCoupling.o  fNearElect.o  fNearMag.o  \ 
callbacks.o  widgets.o  cFileMenu.o 

INCLUDE  =  -I$(SRGPDIR) 

LDFLAGS  =  -LS(SRGPDIR) 

LDLIBS  =  -lsrgp  -lXm  -IXt  -1X11  -lm 

LIBS  =  -lsrgp  -lXm_s  -lXt_s  -1X1  l_s  -lm  -1PW  -lbsd  -lc_s 

CFLAGS  =  -g  -Atarg=c400  -D_cpu_c400_ 

CC  =  acc 

needs:  $(OBJS) 

$(CC)  $(CFLAGS)  $(OBJS)  S(XGRAPHICS)  -o  needs  $(LDFLAGS)  $(LIBS) 

$(FM):  cFileMenu.h 

$(CC)  $(CFLAGS)  -c  $*.c 

$(CL):  control. h 

$(CC)  $(CFLAGS)  -c  $*.c 

control.o:  control.c  control.h  menuData.h 
$(CC)  $(CFLAGS)  -c  control.c 

needsplt.o:  tplx  1 1  .h 

$(CC)  $(CFLAGS)  $(INCLUDE)  -c  needsplt.c  $(LDFLAGS)  $(LDLIBS) 


4 


necdisp.o:  $(CC) 

$(CFLAGS)  -DCLIX  -DCOMMONS2  -I$(EMENG)  -c  necdisp.c 

Most  NEEDS  source  files  are  used  to  create  the  various  NEEDS  input/display  windows.  Almost 
all  of  these  source  files  are  similar  to  the  source  files  used  to  create  the  Node  Coordinates  Window. 
Table  1  lists  and  describes  the  files  for  the  Node  Coordinates  Window.  Several  other  files  have 
unique  algorithms  and  are  also  included.  Listings  for  these  source  files  are  found  in  appendix  A. 

Table  1.  NEEDS  source  files. 


Filename 

Description 

control,  c 
control,  h 

Contain  the  main  control  files  for  NEEDS 

rrienuData.h 

Contain  the  menu  data  for  the  NEEDS  program 

widgets.c 

Contain  the  support  procedures  for  building  the  widgets 

dialogs. c 

Contain  the  general  routines  for  general  dialog  boxes 

cFileMenu.c 

cFileMenu.h 

Contain  global  variables  and  Main  Menu  callbacks  for  the  NEEDS  program 

cNodeCoord.c 
f  NodeCoord.  c 

Contain  the  callbacks  and  procedures  for  the  Node  Coordinates  Window 

spiral.c 

Contain  the  routines  to  perform  spiral  ordering  of  wires  within  NEEDS 

cMeshes.c 

fMeshes.c 

Contain  callbacks  and  procedures  for  the  Meshes  Window 

fDescrip.c 

Contain  the  procedures  for  creating  the  Description  Window 

cDiagnostics.c 

fDiagnostics.c 

Contain  the  callbacks  and  procedures  for  the  Diagnostics  Window 

needsplt.c 

Contain  the  SRGP  routines  for  creating  the  2-D  Engineering  Graphics 
within  NEEDS 

cOutputMenu.c 

Contain  the  callbacks  for  the  Output  menu  items 

fHelp.c 

Contain  procedures  for  creating  the  Help  Window 

needs.html 
needsinl  .html 

Contain  example  WWW  home  pages  used  by  the  NEEDS  help  utility 

cVisual.c 

fVisual.c 

Handle  selection  of  3-D  output  products 

geoflt.c 

Extracts  NEEDS  geometry  information  from  memory 

needsflt.c 

Extracts  output  data  sets  from  NEC  output  files 

necdisp.c 

Contain  procedures  for  performing  3-D  visualizations  using  XGraphics 

cEditGeo.c 

fEditGeo.c 

Contain  callbacks  and  procedures  for  the  Edit  Geometry  Window 

cNeedControl.c 

fNeedControl.c 

Contain  callbacks  and  procedures  for  the  Edit  Control  Cards  Window 
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5.  NEEDS  FILES 


The  only  files  used  by  NEEDS  are  the  same  as  those  used  by  NEC-MoM.  This  includes  the  input 
files  to  NEC-MoM  that  have  the  extension  “.nec”  and  the  output  files  created  by  NEC-MoM  that 
have  the  extension  “*.out”.  In  addition,  there  is  a  set  of  filtered  output  files  that  are  extracted  from 
the  “*.out”  files.  These  files  are  documented  in  the  corresponding  NEEDS  User’s  Manual  (Lam, 
Rockway,  Russell,  and  Wentworth,  1995). 
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A.1  control.c,  control.h 


control.c: 

r 

*  User  Interface  for  NEEDS 
V 

include  "control.h" 
include  "menuData.h" 
include  <stdio.h> 
include  <stdlib.h> 
include  <string.h> 
include  <Xm/FileSB.h> 
include  <Xm/Form.h> 
#indude  <Xm/Label.h> 
#jndude  <Xm/MainW.h> 
include  <Xm/Protocols.h> 
include  <Xm/PushB.h> 
#indude  <Xm/RowColumn.h> 
include  <Xmfiexth> 
include  <Xm/MwmUtil.h> 
include  "ctrlgeo.h" 


Widget  topLevel,  inputFilenameText,  necinputFileText,  necOutputFileText; 
char  "necInputRlename  =  NULL, 

•necOutputFilename  -  NULL; 

XtAppContext  app_context; 

Widget  necInputOialog  =  NULL, 
necOutputDialog  =  NULL; 

r  Dimension  scaling  factors  */ 

float  DimensionsScale  D  =  {1 ,  -01 ,  .3048,  .0254); 

P  Frequency  scaling  factors  */ 

float  FrequenciesScale  fl  =  {  001, 1, 1000}; 

typedef  struct  { 
int  id; 

char  file[40]; 

}  idfile; 

r  forward  declarations  */ 
static  Widget  createMenuBar  0; 
static  void  initEnvironment  0; 
static  void  setEnv  0; 

r  forward  declarations  of  external  procs  */ 
extern  Widget  createDialogShell  0; 
extern  void  forceUpdateO; 
extern  void  sigcatcher  0; 
extern  idfile  *readldFile(); 
extern  idfile  "checklnitialStatusO; 
extern  idfile  *IDdata; 

r . . . . . 

main  (argc,  argv) 
int  argc; 
char  *argvfl; 

{ 

Arg  args  [10); 

Widget  mainw,  menu_bar; 
int  int_val; 

char  momfile[80],  title[S0]; 

char  "inputname; 

char  "tail,  newname  [80]; 

Atom  WM_DELETE_WINDOW; 

XEvent  event; 
char  msg[80); 

extern  char  *inputFilename; 
extern  void  exitNeeds  0; 

topLevel  =  XtAppInitialize  (&app_context,  "NEEDS", 

(XrmOptionDescListJNULL ,  0,  &argc,  (String*)argv,  NULL,  NULL,  0); 

initEnvironment  0;  t*  Read  the  environment  variables  7 
inputname  =  getenv("MOM_FlLE"}; 

XtFree(neclnputFilename); 

neclnputFtlename  =  XtMa  I  loc(strien  (inputname)  +  1); 
sticpyfnodnputFilename,  inputname); 

if  (neclnputFilename[0]  1=  'VO*  &&  strstr[neclnputFilename,  ".nec"))  { 
strcpy(momfile,  neclnputFtlename); 
readNecRIeflnputname); 
strcpy  (newname,  neclnputFilename); 
tail  =  strstr  (newname,  ".nec"); 
strcpy  (tail,  ".out"); 

XtFree((char  *)necOutputRlename); 
necOutputFilename  =  XtMalloc(stirlen(newname)  +  1); 
strcpy(necOutputFilename,  newname); 
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} 

else  { 

if  (inputname[0]  1=  VT  &&  !strstr(inputname,  "nec"))  { 
spnntf(msg,  Improper  NEC  file  extension  [%sf ,  inputname); 
aeateMes  sage  Dialog  (topLevel,  'Warning",  msg,  )OnDIALOG_WARNING); 
while  (True)  { 

XiAppNextEvent(app_context,  &  event); 

XtDispatchEvent(&event) ; 
if  (eventxfocus.type  ==  FocusOut) 
break; 

> 

} 

strcpy  (momfile,  "New  File"); 
dearOatainputsO; 

> 

sprintf(btle,  "NEEDS  %s  -  [%s if,  VERSION,  momfile); 

r  recall  nec4s  processes  which  may  left  over  in  the  last  session  V 
if  (IIDdata) 

IDdata  =  readldRIeO; 

r  Don't  allow  user  to  resize  this  window  */ 

XtVaGetVaJues(topLevel,  XmNmwmFunctions,  &int_vai,  NULL); 
irrtval  &=  SMWM_FUNC_RESIZE  |  MWM_FUNC_ALL); 

XtVaSetValues(topLevel, 

XmNmwmFunctions,  int_val, 

XmNdeleteResponse,  XmDO_NOTHING, 

XmNtrde,  title, 

NULL); 

r  Add  a  callback  for  the  WM_DELETE_WINDOW  protocol  so  that  the 
•  exitCB  callback  is  called  when  dosing  the  main  window. 

•/ 

WM_DELETE_WlNDOW  =  XmlntemAtom  (XtDisplay  (topLevel), 
“WM_DELETE_WINDOW",  False); 

XmAddWMProtocolCallback  (topLevel,  WM_DELETE_WINDOW,  exitNeeds,  NULL); 

XtSetArg  (args  (0),  XmNheight,  33); 

XtSetArg  (args  [1],  XmNwidth,  800); 

mainw  =  XtCreateManagedWidget  f  mainw",  xmMainWindowWidgetClass, 
topLevel,  args,  2); 


menu_bar  =  createMenuBar  (mainw); 

XmMainWindowSetAreas  (mainw,  menu_bar,  NULL,  NULL,  NULL,  NULL); 
XtRealizeWidget  (topLevel); 

forceUpdate(topLevel); 

r  check  to  see  if  any  nec4s  process  is  running  */ 

IDdata  -  checklnitialStatus(IDdata); 

XtAppMainLoop  (app_context); 

}  f  end  main  •/ 

r . 

*  Create  the  menu  bar 
*/ 

static  Widget  createMenuBar  (parent) 

Widget  parent; 

{ 

Widget  menu_bar,  menuttem; 

menu_bar  =  Xm CreateMenuBar  (parent,  "menu_bar",  NULL,  0); 

XtManageChild  (menu_bar); 

createMenuButtons  (NULL,  menu_bar,  MenuBarData,  XtNumber  (MenuBarData)); 
r  Disable  Output  V 

menuttem  =  XtNameToWidget  (menu_bar,  "Output*); 

XtVaSetValues  (menuttem,  XmNsensitive,  False,  NULL); 

return  (menu_bar); 

}  r  end  createMenuBar  */ 

r . . . . . . 

*  initEnvironment 

*  Description:  Set  environment  variables  using  data  in  file  .Needs 

*  Added  by  D.  Wentworth  6/13/95 

. * . . . 

static  void  initEnvironment  0 

{ 

char ‘home,  needsDir  [80]; 

FlLEfp; 

static  char  •prCommand.  *prCommand2,  fontDir,  ’momFile; 
extern  RLE  "efopen  0; 
char  msg [80]; 

XEvent  event; 

XtAppContext  ext  =  XtWidgetToApplicationContext(topLevel); 
r  Open  .Needs  file  from  user's  home  directory  */ 
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needsDirfO]  = 
home  =  getenv  ("HOME"); 
if  (strcmp(home,  7"))  /*  not  root  login  */ 
strcpy  (needsDir,  home); 
strcat  (needsDir,  “/.Needs'*); 
if  ((fp  =  efopen  (needsDir,  “O)  =  NULL)  { 
while  (True)  { 

XlAppNext£vent(cxt,  Sevent); 

XtDispatchEvent(&event); 
if  (eventxfocus.type  ==  FocusOut) 
break; 

} 

sprintf(msg,  “Please  create  configuration  file  [%s]  then  restart", 
needsDir); 

createMessageDiaIog(topLevel,  *Waming",  msg,  XmDlALOG_WARNING); 
while  (True)  { 

XtAppNextEvent(cxt,  &event); 

XtDispatchEvent(&event); 
if  (eventxfocus.type  =  FocusOut)  { 

XtCloseDisp(ay(XtDisplay(topLevel)); 

exit(0); 

> 

> 

> 

setEnv  (fp,  prCommand); 
setEnv  (fp,  prCommand2); 
setEnv  (fp.  fontDir); 
setEnv  (fp,  momFile); 

fclose  (fp); 

}  r  end  initEnvironment  */ 


*  setEnv 

*  Description:  Set  environment  variables  using  data  in  file  .Needs 

*  Added  by  D  Wentworth  6/1 3/95 

static  void  setEnv  (fp,  var) 

FILE  fp; 
char  “var 

{ 

char  line  [132); 

fgets  (line,  132,  tp), 
if  (line[strien  (line)  - 1]  ==  VT) 

Iine[str1en(line)  - 1]  =  “NO*;  r  Remove  carnage  return  V 
var  =  XtMalloc  (srzeof  (char)  *  (strlen  (line)  +  1)); 
strcpy  (var,  line); 
putenv(var); 

}  r  end  setEnv  */ 

. . / 

void  savelnit£nv(fiie) 
char  file; 

{ 

char  'home,  initfile[50),  command[80),  line[80]; 

FILE  fp; 

tmpnam(line); 
home  =  getenvfHOME*); 
if  (strcmp(home,  7"))  /*  not  root  login  7 
sprintf(initfile,  “%s/.  Needs",  home); 

else 

sprintf(injtfile,  "/.Needs"); 

sprintf(command,  “head  >3  %s  >  %s“,  initfile,  line); 
system(command) ; 

sprintf(command,  “cat  %s  >  %s",  line,  initfile); 

system(command); 

remove(line); 

if  (Ifile  ||  lstrstr(fi!e,  ".nec“)) 
sprintf(line,  "MOM_FILE=“); 
else 

if  ((fp  =  fopen(file,  “O)  1=  NULL)  { 
sprintfOine,  "MOM_FILE=%s",  file); 
fc!ose(fp); 

> 

else 

sprintf(line,  “MOM_FILE=“); 
sprintf(command,  "echo  %s  »  %s“,  line,  initfile); 
system(command); 

> 


control. h: 

r 

*  Header  file  for  user  interface  of  NEEDS-VS 
7 
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include  <X11/lntrinsic.h> 
include  <X11/StringDefs.h> 
include  <Xm/Xm.h> 


typedef  struct  MenuStruct  { 
char  ‘name; 

char  *accel; 
char  ‘accelText; 


r  Name  of  the  button  7 
r  accelerator  symbol  7 
r  accelerator  string  7 


void  (Tunc)  0;  f*  Callback  to  be  invoked  7 

XtPointer  data;  /*  Data  for  the  callback  7 

struct  MenuStruct  "subMenu;  !*  Data  for  submenu  7 
int  numSubltems;  t  Items  in  subMenu  7 

char  "subMenuTitie;  r  Title  of  subMenu  7 


>  XsMenuStruct; 


#ifndef  FREE_SPACE 
r  Options  for  Environment  7 

#define  FREE.SPACE  0 
#define  GROUND^PLANE  1 


#define  NUM_ENV  2 

r  Options  for  Dimension  7 

tfdefine  METERS  0 

#define  CENTIMETERS  t 
Wefine  FEET  2 

#define  INCHES  3 

#define  NUM_DIM  4 


/•  Number  of  Environment  options  7 


/•  Number  of  Dimension  options  7 


r  Options  for  Frequency  Units  7 

#define  KHZ  0 

#define  MHZ  1 

#define  GHZ  2 

#define  NUM_FREQ  3  /*  Number  of  Frequency  Units  options  7 

#define  MAX_COMMANDS  2000  r  Maximum  number  of  commands  7 

#define  NUMSEGS  100 
#define  NODES  101 

#define  RADIUS  102 


#endif 


#define  VERSION  "3.1“ 

#define  RELEASE  "Release  Date:  1  AUG  1995" 
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A.2  menuData.h 


menuData.h: 

r 

*  menu  data  forth©  NEEDS  program 
7 

r  forward  declarations  for  callbacks  7 

extern  void  clearDatalnputs  0; 

extern  void  exrtNeeds  Q; 

extern  void  openAboutWindow  0; 

extern  void  openAddGroundParamWindow  0; 

extern  void  openCatenaryWiresWindow  Ql 

extern  void  openCommentsWindow  0; 

extern  void  openDescripWindow  0; 

extern  void  openDiagnosticsWindow  0; 

extern  void  openFrequencyWindow  0; 

extern  void  openGroundParamWindow  0; 

extern  void  openHelixOrSpiralWindow  0; 

extern  void  openlncidentPlaneWaveWindow  0; 

extern  void  openinsulatedWiresWindow  Q; 

extern  void  openloadsWindow  0; 

extern  void  openMaxCouplingWindow  0; 

extern  void  openMeshesWindow  0; 

extern  void  openMomExporfWindow  0; 

extern  void  open  Mom  ImportWindow  0; 

extern  void  openMosaicWindow  0; 

extern  void  openMultiplePatchWindow  0; 

extern  void  openNearEiectricWindow  0; 

extern  void  openNearMagneticWindow  0; 

extern  void  openNecMomExecuteWindow  0; 

extern  void  open  NodeCoord  Window  0; 

extern  void  openPlotDialog  0; 

extern  void  openPrintOptionsWindow  0; 

extern  void  openPrinterWindow  0; 

extern  void  openRadiationPattemWindow  0; 

extern  void  openReadlnputWindow  Q; 

extern  void  openRotaticnWindow  0; 

extern  void  openReflectionWindow  0; 

extern  void  openSaveAsWindow  Q: 

extern  void  openStraightWiresWindow  0; 

extern  void  openSurfacePatchWindow  0; 

extern  void  openTaperedWiresWindow  0; 

extern  void  openTransmissionLinesWindow  0; 

extern  void  opcnTransformationWindow  0; 

extern  void  openTwcPortNetsWindow  0; 

extern  void  openUpperMediumParamWindow  0; 

extern  void  openViewAdmittanceWindow  0; 

extern  void  openViewAIIWindow  0; 

extern  void  openViewChargesWindow  0; 

extern  void  openViewCouplingWindow  0; 

extern  void  openViewCurrentsWindow  0; 

extern  void  openViewlmpedanceWindow  0; 

extern  void  openViewNearQectiicRdsWindow  0; 

extern  void  openViewNearMagneticF IdsWindow  Q; 

extern  void  openViewRadiationWindow  0; 

extern  void  openVisualWindow  0; 

extern  void  open  Voltage  Sources  Window  Q; 

extern  void  openWireArcWindow  0; 

extern  void  outputMenuCouplingCB  0; 

extern  void  savelnputToFiie  0; 

extern  void  spiral  0; 

extern  void  doseAll  0; 

extern  void  openNecMomRunStatusWindow  0; 

extern  void  openOxfFileWindowO; 

extern  void  openlmportinputWindowO; 

extern  void  openEditCtriWindowO; 

extern  void  openEditWindowO; 

extern  void  newFileActionO; 

extern  void  necExecuteO; 

static  XsMenuStruct  FileMenu  Q  -  { 
fOpen...“,  NULL,  NULL,  openReadlnputWindow), 
{•Save",  NULL,  NULL,  savelnputToFiie), 

{"Save  as.. NULL,  NULL,  openSaveAsWindow), 
{"New",  NULL,  NULL,  newFileAction), 

{NULL}, 

{•Close  air,  NUU,  NULL,  doseAll). 

{NULL}, 

{•Exit",  NULL,  NULL,  exitNeeds) 

>; 


static  XsMenuStruct  spiralMenu  Q  =  { 
{•Positive  X-axis",  NULL,  NULL,  spiral,  *T), 
fNegative  X-axis",  NULL,  NULL,  spiral,  "27. 
{•Positive  Y-axis",  NULL,  NULL,  spiral,  "37, 
{negative  Y-axis",  NULL,  NUU,  spiral,  “47, 
{•Positive  Z-axis“,  NUU,  NULL,  spiral,  "57, 
{negative  Z-axis",  NULL,  NULL,  spiral,  "67 

>; 


static  XsMenu  Struct  GeometryMenu  0  =  { 

("Node  Coordinates-,  "Cti1<K©y>N"  “Cti+N",  openNodeCoordWindow}, 

{•Straight  Wires",  "Ctrf<Key>W",  "Ctl+W,  openStraightWiresWindow}, 

{Tapered  Wires",  "Shift<Key>W",  "Shf+W",  openTaperedWiresWindow}, 
("Catenary  Wires",  "Ctri<Key>C",  "Cti+C".  openCatenaryWiresWindow}, 

{Wire  Arc",  "Ctrt<Key>AM,  "Ctl+A",  openWireArcWindovv}, 

{Helix  or  Spiral",  NULL,  NULL,  openHelixOrSpiralWindov^, 

{"Meshes",  "Ctri<Key»r,  "CtJ+Z",  openMeshesWindow}, 

{Surface  Patches",  NULL,  NULL,  openSurfacePatchWindow}, 

{•Multiple  Patches",  NULL,  NULL,  openMultiplePatchWindow}, 

{Transformations",  "CtrJ<Key>T*,  “Cti+T",  openTransformationWindovv}, 
("Rotation*",  "Shfft<Key>T*,  "Shf+'T,  openRotationWindow}, 

{"Reflections",  "Ctri<Key>R",  “Cti+R",  openReflectionWindow}, 
fSpiraJ  Ordering",  NULL,  NULL,  NULL,  NULL,  spiralMenu.  XtNumber  (spiralMenu), 
"Spiral  a  long. .7, 

fCAD  Interface",  NULL,  NULL,  openDxfFileWindow}, 

{•Edit  Card  Order,  NULL,  NULL,  openEditWindow} 

>; 


static  XsMenuStruct  BectricalMenu  Q  =  { 

("Frequency,  “Ctri<Key>P,  "Ctl+F,  openFrequencyWindow}, 
fLoads",  *Ctirt<Key>L",  "CtJ+L",  openLoadsWindow}, 

{Voltage  Sources",  "Cfcri<Key>V",  “CtJ+V",  openVoltageSourcesWindow}, 

{Incident  Plane  Wave",  “Ctri<Key>f,  "Cti+f,  openlncidentPlaneWaveWindow}, 
{Transmission  Lines",  "Alt<Key>L“,  "Alt+L",  openTransmissionLinesWindov^, 

{Two  Port  Networks",  “Ctrl<Key>2",  “CtJ+2",  openTwoPortNetsWindow}, 

{Insulated  Wire",  "Shift<Key>L",  "Shf+L",  openinsulatedWiresWindow}, 

{•Ground  Parameters",  "Ctri<Key>G",  "Cti+G",  openGroundParam  Window}, 

{•Additional  Ground  Parameters",  "Alt<Key>G“,  "Alt+G",  openAddGroundParamWindow}, 
fUpper  Medium  Parameters",  "Shrft<Key>G",  "Shf+G“,  o  pen  UpperMediumParam  Window}, 

>; 

static  XsMenuStruct  SolutionMenu  0  -  { 

{Maximum  Coupling",  “Ctr1<Key>M"1  "Ctl+M",  openMaxCouplingWindow}, 

{Hear  Bectnc  Fields",  “Ctr1<Key>E"1  "Ctl+E“,  openNearElectricWindow}, 

{Hear  Magnetic  Fields",  “Ctrl<Key>H",  "Cti+H",  openNearMagneticWindow}, 

{•Radiation  Patterns".  "Ctr1<Key>R",  “Cti+R",  openRadiationPattemWindow}, 

{Print  Options",  "Ctrt<Key>P“,  "CtJ+P",  openPrintOptionsWindow} 

>; 

static  XsMenuStruct  transtationMenu  D  =  { 

{HEC-MoM  Export",  NULL,  NULL,  openMomExportWindow}, 

{HEC-MoM  Import".  NULL,  NULL,  openlmportinputWindow} 

}; 

static  XsMenuStruct  InputMenu  Q  =  { 

{•Comments',  NULL.  NULL,  openCommentsWindow}, 

{•Geometry  Descnption".  NULL,  NULL,  NULL,  NULL,  GeometryMenu, 

XtNumber  (GeometryMenu),  NULL}, 

{■Edit  Control  Descnption".  NULL,  NULL,  openEditCWWindow} 

}; 

static  XsMenuStruct  ExecuteMenu  Q  =  { 

(Descnption  Summary,  “Ctr1<Key>D",  "Ctt+D",  openDescripWindow}, 

{Diagnostics",  "Shift<Key>D",  "Shf+D",  openDiagnosticsWindow}, 

{HEC-MoM  Execute..  ",  "Ctri<Key>X",  "CtJ+X",  necExecute}. 

{HEC-MoM  Run  Status",  “Shrft<Key>X",  “Shf+X",  openNecMomRunStatusWindow} 

}; 

static  XsMenuStruct  textMenu  0  =  { 

{•Air,  NULL,  NULL,  openViewAIIWindow}, 

{Impedance",  NULL,  NULL,  openViewImpedanceWindow}, 

{•Admittance",  NULL,  NULL,  openViewAdmittanceWindow}, 

{Currents",  NULL,  NULL,  openViewCunentsWindow}, 

{Charges",  NULL,  NULL,  openViewChargesWindow}, 

{Coupling",  NULL,  NULL,  openViewCouplingWindow}, 

{Hear  Bectric  Reids",  NULL,  NULL,  openViewNearElectricFIdsWindow}, 

{Hear  Magnetic  Fields",  NULL,  NULL,  openViewNearMagneticFIdsWindow}, 

{Radiation  Patterns",  NULL,  NULL,  openViewRadiationWindow} 

}; 


static  XsMenuStruct  plotMenu  Q  =  { 

{Impedance",  NULL,  NULL,  openPtotDialog,  "O'}, 

{•Admittance",  NULL,  NULL,  openPtotDialog,  "1*7, 

{Currents",  NULL,  NULL,  openPlotDialog,  "27, 

{Charges",  NULL,  NULL,  openPlotDialog,  "37. 

{Coupling",  NULL,  NULL,  outputMenuCouplingCB}, 

{Hear  Bectric  Reids",  NULL,  NULL,  openPlotDialog,  "57, 

{Hear  Magnetic  Fields".  NULL,  NULL,  openPlotDialog,  “67, 

{Radiation  Patterns",  NULL,  NULL.  openPlotDialog,  "77, 

}; 

static  XsMenuStruct  ResultMenu  Q  =  { 

{TexT,  NULL,  NULL,  NULL,  NULL.  textMenu,  XtNumber  (textMenu).  NULL}, 
{Riot",  NULL,  NULL,  NULL.  NULL,  plotMenu,  XtNumber  (plotMenu),  NULL}, 
{Visualization...",  NULL,  NULL,  openVisualWindow} 

>; 


static  XsMenuStruct  OutputMenu  Q  =  { 
{Rrinter...",  NULL,  NULL,  openPrinteiWindow}, 
("Plotter. -7. 

(“Spreadsheet.^, 
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{Database...*} 

}; 

static  XsMenuStruct  HelpMenu  Q  =  { 

{User's  Manual",  NULL,  NULL,  openMosaicWindow}, 
{NULL}, 

f  About  NEEDS...",  NULL,  NULL,  openAboutWindow}, 

>: 


static  XsMenuStruct  MenuBarData  Q  =  { 

fFile",  NULL,  NULL,  NULL,  NULL,  FileMenu,  XtNumbef  (FileMenu),  NULL}, 

{"Input",  NULL,  NULL,  NULL,  NULL  InputMenu,  XtNumbef  (InputMenu),  NULL}, 
fExecute",  NULL  NULL  NULL  NULL  ExecuteMenu,  XtNumber  (ExecuteMenu),  NULL}, 
fResulT,  NULL  NULL.  NULL  NULL  ResultMenu,  XtNumber  (ResultMenu),  NULL}, 
fOutput",  NULL,  NULL  NULL  NULL  OutputMenu,  XtNumber  (OutputMenu),  NULL}, 
fHelp",  NULL  NULL  NULL  NULL  HelpMenu,  XtNumber  (HelpMenu),  NULL} 

}; 


A-7 


A.3  widgets.c 


widgets.c: 

r 

*  Support  procedures  for  building  the  widgets 
V 


include  "control.h" 
include  <stdio.h> 
include  <stdlib.h> 

Hfindude  <Xm/CascadeB.h> 
#mdude  <Xm/OiatogS.h> 
#indude  <Xm/Frame.h> 
include  <Xm/Form.h> 
#indude  <Xm/Label.h> 
include  <Xm/Usth> 
include  <Xm/PushB.h» 
#indude  <Xm/RowColumn.h> 
include  <  Xm/Se  para  tor.  h> 
include  <Xm/Texth> 
#indude  <XnVToggleB.h> 
include  <Xm/ScrollBar.h> 
#indude  <Xm/ScrolledW.h> 
include  "action Area. h" 

#define  TIGHTNESS  20 


extern  int  Envindex,  /*  index  into  array  of  Environment  options  */ 

Dimlndex,  i*  index  into  array  of  Dimension  options  */ 
Frequencyfndex;  /*  index  into  array  of  Frequency  units  */ 

/ . . / 


Widget  createDialogShell  (parent  say,  w,  h) 
Widget  parent 
char  "say; 
int  w,  h; 


Widget  widget 
int  n; 

Arg  args[3J; 

n  =  0; 

XtSetArg  (args  [n],  XmNwidth,  w);  n++; 

XtSetArg  (args  [nj,  XmNheight  h);  n*+; 

XtSetArg  (args  [nj,  XmNaHowShellResize,  True);  n++; 
widget  =  XmCreateDialogShell  (parent  say,  args,  n); 

return  (widget); 

)  f*  end  createDialogShell  */ 

r* . 

void  createMenuButtons  (title,  menu,  menuUst  numftems) 
char  *title; 

Widget  menu; 

XsMenuStruet  "menuList 
int  numftems; 

{ 

Arg  args  [10]; 

int  i; 

WidgetUst  buttons; 
int  separators  =  0; 

static  subMenuIndex  =  0;  f*  number  the  submenus  7 

r  Allocate  a  widget  list  to  hold  all  button  widgets  */ 

buttons  =  (WidgetUst)  XtMalloc  (numftems  *  sized  (Widget)); 

rtf  a  title  is  given,  create  Label  and  Separator  widgets  */ 
it  (title)  { 

XtCreateManagedWidget  (title,  xmLabelWidgetClass,  menu,  NULL,  0); 
XtCreateManagedWidget  ("separator,  xmSeparatorWidgetClass, 
menu,  NULL,  0); 

) 

r  Create  an  entry  for  each  item  in  the  menu  7 
for  (i  =  0;  i  <  numftems;  i++)  { 

/*  A  NULL  name  represents  a  separator  7 
if  (menuListfi).  name  =  NULL)  { 

XtCreateManagedWidget  ("separator",  xmSeparatorWidgetClass,  menu, 
NULL,  0); 
separator***; 

> 

/*  tf  there  is  a  name  and  a  callback,  create  a  selectable  menu  entry  7 
r  and  register  the  callback  function  7 
else  if  (menuList[i].func)  { 

Arg  nargs{10]; 
intn^O; 

XmString  xmStr 
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xmStr  =  XmStringCreateLocalized(menuList(iJ.acceUext); 

XtSetArg (nargs{n],  XmNaccelerator,  menuUstpJ.accel);  n++; 
XtSetArg(nargs[n],  XmNacceleratorText  xmStr);  n++; 
buttonsfi-separators]  =  XtCreateWidget  (menu Ustfi]. name, 
xmPushButtonWidgetClass,  menu,  nargs,  n); 

XmStringFree(xmStr); 

XtAddCallback  (buttonsp-se  para  tors],  XmNactJvateCallback, 
menuUstfij.func,  menuList[i].data); 

} 

r  If  there  rs  a  name  but  no  callback,  the  entry  must  be  a  label,  */ 

T  unless  there  is  a  submenu.  */ 
else  if  (lmenuListfi].subMenu)  { 

XtSetArg  {args  (0],  XmNalignment,  XmAUGNMENT_BEGINNING); 
buttons  [i-separators]  =  XtCreateWidget  (menuListfiJ.name, 
xmLabelWidgetClass,  menu,  args,  1); 

> 

r  If  we  got  here,  the  entry  must  be  a  submenu.  Create  a  pulldown  V 
/*  menu  pane  and  an  XmCascadeButton  widget  Attach  the  menu  pane  */ 
r  and  make  a  recursive  call  to  create  the  entries  in  the  submenu  */ 

else{ 

Widget  subMenu; 
char  subMenuName[5]; 

sprintf  (subMenuName,  **%d",  subMenulndex++); 

r 

subMenu  =  XmCreatePulldownMenu  (menu,  menuUsttfJ.subMenuTrtle, 
NULL.  0); 

•/ 

subMenu  =  XmCreatePulldownMenu  (menu,  subMenuName,  NULL,  0); 
XtSetArg  (args  [0],  XmNsubMenuld,  subMenu); 
buttons  [i-se  pa  raters]  =  XtCreateWidget  (menuUstfl.name, 
xmCascadeButtonWidgetClass,  menu,  args,  1); 
createMenuButtons  (menuList{i].subMenuTitie,  subMenu, 
menuListffl.subMenu,  menuList(i].numSubltems); 

> 

}  /*  end  for  */ 

XtManageChildren  (buttons,  numltems  -  separators); 

XtSetArg  (args  [0],  XmNmenuHelpWidget,  buttons  [numltems-1]); 
XtSetValues  (menu,  args,  1); 

XtFree  ((char  *)  buttons); 

}  r  end  createMenuButtons  •/ 

t . . . 


void  createRadioBoxftems  (box,  xmstrings) 

Widget  box; 

Xm  String  *xm  strings; 

{ 

Widget  button; 
int  i, 
n; 

char  name  [2]; 

Arg  args  [2]; 

n  =  XtNumber  (xmstrings); 
for  C»  =  0;  i  <  n;  t++)  { 
sprintf  (name,  “%d",  i); 

XtSetArg  (args  (0],  XmNlabelString,  xmstrings  [i]); 

XtSetArg  (args  [1],  XmNalignment,  XmALIGNMENT_BEGINNING); 
button  =  XmCreateToggleButton  (box,  name,  args,  2); 
XtManageChild  (button); 

> 

>  r  createRadioBoxItems  */ 

/*••' . ‘ — . . I 

char  *getStringFromXmString  (string) 


Xm  String 

string; 

XmStringContext 

context 

char 

•text 

XmStringCharSet 

charSet 

XmStringDirection 

dir; 

Boolean 

separator; 

char 

•buf  =  NULL; 

int 

done  =  FALSE; 

XmStringlnitContext  (&context,  string); 
while  ((done) 

if  (XmStringGetNextSegment  (context  &text  &charSet  &dir.  &se  para  tor))  { 

if  (separator)  /*  Stop  when  next  segment  is  a  separator  7 

done  =  TRUE; 


if  (buf)  { 

buf  =  XtRealloc  (buf,  strlen  (buf)  *  strien  (text)  +  2); 
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strcat  (buf,  text); 

)el»e{ 

buf  =  {char  *)  XtMalloc  (strien  (text)  ♦  1); 
strcpy  (buf,  text); 

> 

XtFree  (text); 

}  else 

done  =  TRUE; 

XmStringFreeContext  (context); 
return  (buf); 

>T  end  getStringFromXmString  */ 

. . / 

void  createOptionMenu  (parent,  menuData,  frame,  options) 

Widget  parent, 

•frame, 

•options; 

char  -menuData; 

{ 

Widget  menuPane, 
optionMenu; 
int  n, 

i; 

Arg  args[10]; 

XmString  string; 

T  Create  Option  Menu  */ 
n  =  0; 

XtSetArg  (args  [n],  XmNshadowType,  XmSHADOW_ETCHEDJN);  n++; 
•frame  =  XmCreateFrame  (parent  "frame",  args,  n); 

XlManageChild  (frame); 

n  =  0; 

menuPane  =  XmCreatePuIldownMenu  (frame,  “menuPane",  args,  n); 

for  0  =  1;  menuData  (j)  !=  NULL;  H-+)  { 
n  =  0; 

options  [i-1]  =  XmCreatePushButton  (menuPane,  menuData  [i],  args,  n); 
XtManageChild  (options  [i-1]); 

> 

string  =  XmStringCreateSimple  (menuData  {0]); 
n  =  0; 

XtSetArg  (args  [n],  XmNlabeiString,  string);  n++; 

XtSetArg  (args  [n],  XmNsubMenuld,  menuPane);  n++; 
optionMenu  =  OOnCreateOptionMenu  (frame,  menuData  [0],  args,  n); 
XtManageChild  (optionMenu); 

XtFree  ((char  •)  string); 

>  r  end  createEnvironDimensOptionMenus  */ 

. . / 

void  saveEnvironment  (env) 

Widget  env; 

{ 

String  envString; 

envString  =  XtName  (env); 

if  (strcmp  (envString,  Tree  Space")  ==  0) 

Envlndex  =  FREE_SPACE; 
else 

Envlndex  =  GROUND_PLANE; 

}  /•  saveEnvironment  */ 

) . . — — — . / 

void  saveDimension  (dim) 

Widget  dim; 

{ 

String  dimString; 

dimString  =  XtName  (dim); 
if  (strcmp  (dimString,  "Meters")  ==  0) 

Dimindex  =  METERS; 

else  if  (strcmp  (dimString,  "Centimeters")  ==  0) 

Dimindex  =  CENTIMETERS; 
else  if  (strcmp  (dimString,  Teet")  =  0) 

Dimindex  =  FEET; 
else 

Dimindex  =  INCHES; 

}  r  saveEnvironment  7 

r . / 

void  saveFrequencyUnits  (freq Units) 

Widget  freqUnits; 

{ 

String  freqString; 
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freq  String  =  XtName  (freq  Units); 
if  (strcmp  (freq String,  “KHz")  ==  0) 

Frequencyindex  =  KHZ; 
else  if  (strcmp  (freq String,  ’‘MHz")  ==  0) 

Frequencyindex  =  MHZ; 
else 

Frequencyindex  =  GHZ; 

}  r  saveFrequencyUnits  7 

/ . . . *7 

int  getListPosrtion  (listWidget) 

Widget  listWidget; 

{ 

int  •positionUst, 
count  =  0, 
nodelndex; 

r  Get  the  current  list  selection  7 

if  (XmListGetSelectedPos  (listWidget  &positionList,  &count))  { 
nodelndex  »  positionList  [0]; 

XtFree  ((char  *)  positionList); 

}  else 

nodelndex  =  0; 
return  (nodelndex); 

>  r  end  getListPosition  7 

/ . . . / 

Widget  createActionArea  (parent,  actions,  numActions) 

Widget  parent; 

ActionArealtem  ’actions; 
int  numActions; 

< 

Widget  actionArea, 

widget; 
int  n,  i; 

Arg  args  [3]; 

n  =  0; 

if  (XmlsForm  (parent))  { 

XtSetArg  (args  [n],  XmNleftAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  (nj,  XmNrightAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [n],  XmNfractionBase,  TIGHTNESS  *  numActions  - 1);  n++; 
actionArea  =  XmCreateForm  (parent,  “actionArea",  args,  n); 

for  (i  =  0;  i  <  numActions;  i++)  { 
widget  =  XtVaCreateManagedWidget  (actionsp].label, 
xmPushButtonWidgetClass,  actionArea, 

XmNleftAttachment,  i  ?  XmATTACH  POSITION  :  XmATTACH_FORM, 
XmNleftPosition,  TIGHTNESS  *  i, 

XmNtopAttachment,  XmATTACH_FORM, 

XmNbottomAttachment,  XmATTACH_FORM, 

XmNrightAttachment, 

i  1=  numActions  - 1  ?  XmATTACH_POSIT10N  :  XmATTACH_FORM, 
XmNrightPosition,  TIGHTNESS  *  i  +  (TIGHTNESS  -1), 
XmNshowAsDefauft,  i  ==  0, 

XmNdefaultButtonShadowThickness,  1, 

NULL); 

if  (actions(j].callback) 

XtAddCallback  (widget,  XmNactivateCallback,  actions[i].callback, 
actions[i].data); 

r  Set  the  actionArea’s  default  button  to  the  first  widget  created  (or, 

*  make  the  index  a  parameter  to  the  function  or  have  it  be  part  of  the 

*  data  structure).  Also,  set  the  pane  window  constraint  for  max  and 

*  min  heights  so  this  pane  in  the  widget  is  not  resizable. 

7 

if  (i  ==  0)  { 

Dimension  height,  h; 

XtVaGetVatues  (actionArea,  XmNmarginHeight,  &h,  NULL); 

XtVaGetValues  (widget  XmNheight  Sheight  NULL); 
height  +=  2  *  h; 

XtVaSetValues  (actionArea, 

XmNdefauttButton,  widget, 

XmNpaneMaximum,  height 

XmNpaneMinimum,  height 

NULL); 

} 

) 

XtManageChild  (actionArea); 
return  (actionArea); 

}  r  end  createActionArea  7 


•  For  the  input  screens,  this  procedure  updates  the  string  which 
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•  displays  the  current  list  index  and  count 

- . . 

void  updateindexLabei  (label,  index,  count) 

Widget  label; 
int  index, 
count; 

{ 

char  *tr(80]; 

Xm  String  string; 

sprintf  (str,  "Index  %d  of  %d",  index,  count); 
string  -  XmStringCreateSimple  (str); 

XtVaSetValues  (label,  XmNlabelString,  string,  NULL); 
XmStringFree  (string); 

}  r  end  updateindexLabei  7 


. . 

*  if  "valid"  boolean  is  false,  display  an  error  dialog  indicating 

*  which  input  needs  revision. 

********** . / 


Boolean  vaiueCheck  (parent,  name,  valid) 

Widget  parent; 
char  ‘name; 

Boolean  valid; 

{ 

char  format  Q  =  Invalid  %s.  Please  reenter.", 

msg  [80); 

if  (Ivalid)  { 

sprintf  (msg,  format,  name); 

createMessageDialog  (parent  "Error",  msg,  XmDIALOG_ERROR); 
return  (False); 

) 

return  (True); 

>T  end  vaiueCheck  V 

r . ************* . . . 

*  Before  a  node  text  widget  loses  focus,  make  sure  that  its  value  is 

*  not  equal  to  the  other  node  text  widget 

. * . ******* . ******************/ 


Boolean  nodeCheck  (parent  endl ,  end2) 
int  endl,  end2; 

{ 

extern  int  NodeCount 
if  (endl  —  end2)  { 

createMessageDialog  (parent  "Error", 

“Zero  length  wire.  Please  reenter  wire  end  values.",  XmDIALOG_ERROR); 
return  (False); 

> 

if  ((endl  <  1)  ||  (endl  >  NodeCount)  ||  (end2  <  1)  ||  (end2  >  NodeCount))  { 
createMessageDialog  (parent  "Error", 

"Invalid  node  value.  Please  reenter.",  XmDIALOGJzRROR); 
return  (False); 

} 

return  (True); 

}/*  end  nodeCheckCB  */ 

/******* . / 

typedef  struct  { 

Widget  text; 
char  "data; 
int  numdata; 
short  index; 
unsigned  char  type; 

>  scroliControt; 

void  decrementCB(w,  control,  call_data) 

Widget  w; 

scrollControl  *control; 

XtPointer  call  data; 

{ 

char  str[40); 

controL>index  +=  1 ; 
if  (controL>  index  =  control->numdata) 
control ->ind  ex  =  0; 
if  (controL>type)  { 
int  'data  =  (int  *)control->data; 
sprintf(str,  "%d“,  data[control->indexj); 

} 

else  { 

float  ‘data  =  (float  *)control->data; 
sprintf(str,  "%g",  dafca[control->index]); 

} 

XmT extSetStnn g (controls text  str); 
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call_data  =  NULL; 
w  =  NULL; 

} 

void  incrementC8(w,  control,  catl_data) 

Widget  w; 

scrollControl  •control; 

XtPointer  call  data; 

{ 

char  str[40]; 

control->index  —  1; 
if  (control index  <  0) 
controL»index  =  controls numdata  - 1; 
if  (control type)  { 
int  'data  =  fint  *)control->data; 
sprintf(str,  "%d",  data[controL> index]); 

} 

eise{ 

float  *data  =  (float  *)  control ->  data; 
sprintf(str,  "%g“,  data  [control  index]); 

) 

XmTextSetString(control->text  str); 

call_data  =  NULL; 
w  =  NULL; 

> 

void  valueChangedCB(w,  ciient_data,  calMata) 

Widget  w; 

XtPointer  dient_data; 

XtPointer  call_data; 

{ 

Arg  args[10J; 

int  size,  max,  min,  value,  n  =  0; 

XtSetArg(args[n],  XmNsliderSize,  Asize);  n++; 

XtSetArg(args[nj,  XmNmaximum,  Amax);  n++; 

XtSetArg(args[nj,  XmNminimum,  Amin);  n++; 

XtGetValues(w,  args,  n); 
value  =  (min  +  (max  -  size))  /  2; 

XtVaSetValues(w,  XmNvalue,  value,  NULL); 

cail_data  «  NULL; 
client  data  =  NULL; 

> 

r . — . . / 

Widget  createScrolledText(parent,  name,  arg,  numArg,  data,  numdata,  type) 
Widget  parent 
char  'name; 

ArgList  arg; 
int  numArg; 
char  *data; 
int  numdata; 
unsigned  char  type; 

{ 

Widget  text  scrollBar,  scrolledWindow; 
static  scrollControl  control(IO); 

Arg  args(10]; 

int  size,  max,  min,  value,  i  =  0,  n  =  0; 

char  str{40]; 

void  incrementCBO; 

void  decrementCSQ; 

void  valueChangedCBO; 

void  exposeHandlerO; 

scrolledWindow  =  XmCreateScroiledWindow(parent  ’'win",  NULL,  0); 
scrollBar  =  XmCreateScrollBar(scrolledWindow,  "scroll",  NULL,  0); 
text  =  XmCreateText  (scrolledWindow,  name,  arg,  numArg); 
if  (type) 

sprintf(str,  *(int  -)data); 
else 

sprintf(str,  "%g",  ‘(float  *)data); 

XmTextSetString(text  str); 

XmScrolledWindowSetAreas(scrolledW»ndow,  NULL,  scrollBar,  text); 
XiManageChild  (scrolledWindow); 

XtSetArg(args[n),  XmNsliderSize,  Asize);  n++; 

XtSetArg(args[n],  XmNmaximum,  &max);  n++; 

XtSetArg(args[nj,  XmNminimum,  Amin);  n++; 

XtGetValues(scrollBar,  args,  n); 
value  =  (min  ♦  (max  -  size))  /  2; 

XtVaSetValues(scnollBar,  XmNvalue,  value,  NULL); 
while  (control|T}.data)  { 
ft  (control [i]. data  ==  data) 
break; 


> 

control[i].text  =  text 
control(i].data  -  data; 
control  [i]. numdata  =  numdata; 
controlfi).index  -  0; 
control  [Tj.type  =  type; 
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XtAddCallback(scrollBar,  XmNincrementCallback,  incrementCB,  &control[i]); 
XtAddCallback(scrollBar,  XmNdecrementCallback,  decrementCB,  Scontrolfij); 
XtAddCallback(scrollBar,  XmNvalueChangedCallback,  valueChangedCB,  NULL); 
XtAddEventHandler(text,  StnrctureNotifyMask,  False, 
exposeHandler,  scrollBar); 


return  text; 

> 

/**" . . . . . . / 

void  editScrolledText  (w,  data,  numdata,  type) 

Widget  w; 
char  -data; 
int  numdata; 
unsigned  char  type; 

{ 

Widget  scrollBar; 

static  scrollControi  control [10]; 

int  i  =  0; 

char  str[4C]; 

void  incrementCBO; 

void  decrementCBO; 

if  (type) 

sprintf(str,  "%d*\  *(int  *)data); 
else 

sprintf(str,  "%g"t  -(float  *)dafca); 

XmTextSetSfcring(w,  str) ; 
while  (control[i].data)  { 
if  (control[i).data  ==  data) 
break; 
i++; 

> 

con  trolfi], text  =  w; 
control [i]  data  =  data; 
control  [i],  numdata  =  numdata; 
control[i].index  =  0; 
controlpj.type  =  type; 

XtVaGetValues(XtParent(w),  XmNverticalScrollBar,  &scrollBar,  NULL); 
XtRemoveAilCallbacks(scrollBar,  XmNincrementCallback); 
XtRemoveAIICalIbacks(scrol!Bar,  XmNdecrementCallback); 
XtAddCallback(scrollBar,  XmNincrementCallback,  incrementCB,  &control[i]); 
XtAdd  Cali  back  (sc  roll  Bar,  XmNdecrementCallback,  decrementCB,  &control[ij); 


r*"” . - . / 

void  exposeHandler  (w.  bar,  event) 

Widget  w,  bar; 

XEvent  ‘event; 

{ 

if  (event->xany.type  —  MapNotify) 

XtManageChild(bar); 
if  (event->xany.type  “  UnmapNotrfy) 

XtUnmanageChild(bar); 

w  =  NULL; 

} 
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A.4  dialogs. c 


dialogs.c: 

r 

*  Filename:  dialogs.c 

# 

*  contains  general  routines  for  general  dialog  boxes  such  as 

•  the  FileSelection  &  Error  dialogs 
*/ 


tfndude  <stdio.h> 
include  <X11 /Intrinsic.  h> 
include  <Xm/Xm.h> 
include  <Xm/RleSB.h> 
include  <Xm/MessageB.h> 
include  <Xm/SelectioB.h> 

#indude  <string.h> 
include  <Xm/PushB.h> 
include  <Xm/Texth> 
include  <Xm/Label.h> 
include  <Xm/MwmUbl.h> 
include  "control.  h“ 

Boolean  SkipPrompt  =  False: 
extern  Widget  topLevel; 

extern  void  forcellpdateO; 
extern  Widget  getTopShellO; 

. . / 

void  dialogCance!CB(w,  data,  cbs) 

Widget  w; 

XtPointer  data; 

XmAnyCallbackStruct  "cbs; 

{ 

XtDestroyWidget(XtParent(w)); 

data  =  NULL; 
cbs  =  NULL; 

}  r  end  dialogCancelCB  7 

. . / 

Widget  createFrleSelecbonDialog  (title,  fitter) 
char  ‘title. 

•filter 

{ 

Arg  args  f2J; 

XmString  xmFtlter, 
xmTitle; 
int  n; 

Widget  fiieSelecbonDialog; 

xmFilter  =  XmStringLtoRCreate(filter,  XmSTRING_DEFAULT_CHARSET); 
xmTitle  =  XmStnngCreateLtoR  (title,  XmSTRING^EFAULTjcHARSET); 

n  =  0; 

XtSetArg  (args  [n],  XmNdirMask,  xmFilter);  n++; 

XtSetArg  (args  [nj,  XmNdialogTrtie,  xmTitle);  n++; 
fiieSelecbonDialog  =  XmCreateFileSelectionDialog 
(topLevel,  "dialog",  args,  n); 

XmStringFree  (xmFilter); 

XmStringFree  (xmTitle); 

XtUnmanageChild  (XmFileSelectionBoxGetChild  (fiieSelecbonDialog, 
XmDIALOG_HELP_BUTTON)); 

XtAdd Callback  (fiieSelecbonDialog,  XmNcancelCallback, 

(XtCallbackProc)  XtUnmanageChild,  NULL); 

return  (fiieSelecbonDialog); 

}  r  end  createFileSelecbonDialog  V 

r . . . — . . 

•  Opens  a  Message  dialog  box. 

7 

void  createMessageDialog  parent,  tibe,  message,  type) 

Widget  parent; 

char  *tbe, 

•message; 
int  type; 

{ 

Widget  messageBox; 

XmString  string, 
okString, 
xmtitie; 

Arg  args  (5J; 

int  n  =  0; 

string  =  XmStnngCreateLtoR  (message,  XmSTRING_DEFAULT_CHARSET); 
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okString  =  XmStiingCreateSimple  fOK“); 

xmtitie  =  XmStnngCreateLtoR  (tide,  XmSTRING__DEFAULT_CHARSET); 

XtSetArg  (args  [n],  XmNdialogTitie,  xmtitle);  n++; 

XtSetArg  (args  [n],  XmNmessageString,  string);  n++; 

XtSetArg  (args  [nj,  XmNautoUnmanage,  False);  n++; 

XtSetArg  (args  [nj,  XmNcancelLabelString,  okString);  n++; 

XtSetArg  (args  (nj,  XmNdialogStyte,  XmDIALOG__FULL_APPLICAT10N_MODAL);  n++; 
messageBox  =  XmCreateMessageDialog  (parent  "Message",  args,  n); 

XtAddCailback  (messageBox,  XmNcancelCallback, 

(XtCallbackFroc)  diatogCancelCB,  NULL); 

XtUnmanageChild  (XmMessageBoxGetChild  (messageBox,  XmDIALOG_OK_BUTTON)); 
XtUnmanageChild  (XmMessageBoxGetChild  (messageBox,  XmDlALOG_HELP_BUTTON)); 

XtVaSetValues  (messageBox,  XmNdiatogType, 

type  “  NULL  ?  XmOIALOGJUESSAGE :  type,  NULL); 

XmStringFree  (string); 

XmStringFree  (okString); 

XmStringFree  (xmtitie); 

XtVaSetVa!ues(getTopShell(messageBox)(  XmNmwmlnputMode, 
MWM_INPUT_SYSTEM_MODAL,  NULL); 

XBeit  (XtOisplay  (messageBox),  50); 

XtManageChild  (messageBox); 
force  Update  (messageBox); 

>  r  end  createMessageDialog  */ 


•  Opens  a  Prompt  dialog  box. 

*/ 

void  createPromptDialog  (prompt,  tide,  callback) 


char 

•prompt 

•tide; 

void 

(•callback)  0; 

Widget 

dialog, 

child; 

Arg 

args  [6]; 

int 

n  =  0; 

Xm  String  str. 

xmtitie; 


str=  XmStiingCreateSimple  (prompt); 
xmtitle  =  XmStringCreateSimple  (title); 

XtSetArg  (argsfn],  XmNselectionLabelString,  str);  n++; 

XtSetArg  (argsfnj,  XmNautoUnmanage,  False);  n++; 

XtSetArg  (argsfnj,  XmNdialogTitie,  xmtitie);  n+>; 

XtSetArg  (argsfnj,  XmNdialogStyle,  XmDIALCK3JrULL_APPUCATION_MODAL);  n++; 
dialog  =  XmCreatePromptDialog  (topLevel,  “prompt*,  args,  n); 

XmStringFree  (str); 

XmStringFree  (xmtitle); 

child  =  XmSelectionBoxGetChild  (dialog,  XmDIALOG_TEXT); 

XtAddCailback  (dialog,  XmNokCallback,  callback,  (XtPointer)  child); 

1*  Destroy  the  dialog  when  user  selects  cancel  *1 

XtAddCailback  (dialog,  XmNcancelCallback,  (XtCallbackProc)  XtDestroyWidget, 
NULL); 

r  Remove  the  Help  button  V 

child  =  XmSelectionBoxGetChild  (dialog,  XmDLALOG_HELP_BUTTON); 
XtUnmanageChild  (child); 

XtVaSetValues(getTopShell(dialog),  XmNmwmlnputMode, 
MWM_!NPUT_SYSTEM_MODAL,  NULL); 

XtManageChild  (dialog); 

}  r  end  createPromptDialog  V 

r — ~ - * . . . ** 

•  Returns  the  filename  from  the  FileSelectionDialog. 

•/ 

char  *getFilename  (callbackStruct) 

XmFileSelectionBoxCallbackStruct  •callbackStruct; 

{ 

char  “filename; 

if  (IXmStiingGetLtoR  (callbackStnjct->  value,  XmSTRlNG_DEFAULT_CHARSET, 
&filename))  { 

return  (NULL);  /*  Must  have  been  an  internal  error  •/ 

} 

if  (filename{strien(filename)  - 1]  =  *0  { 
createMessageDialog  (topLevel,  “Error",  “No  file  selected.", 

XmDIALOG_MESSAGE); 

XtFree  (filename);  /*  even  “  is  an  allocated  byte  V 
return  (NULL); 

} 

if  (l*filename)  {  r  Nothing  typed?  V 


A-16 


createMessageDialog  (topLevet,  "Error,  "No  file  selected.", 
XmDIALOG.MESSAGE); 

XtFree  (filename);  r  even  “*  is  an  allocated  byte  */ 
return  (NULL); 

} 

return  (filename); 

)  /*  end  getFilename  7 


•Try  to  open  a  file.  If  if s  not  possible,  open  a  Message  Dialog 
•  box  warning  the  user. 

7 


RLE  *efopen  (file,  mode) 
char  file, 

•mode; 

{ 

FILE  fp; 

char  msg  [80]; 

if  ((fp  =  fopen  (file,  mode))  1=  NULL) 
return  (fp); 

sprintf  (msg,  "Can't  open  file  %$“,  file); 

createMessageDialog  (topLevel,  "Error",  msg,  XmDIALOG_ERROR); 
return  (NULL); 

>  r  end  efopen  7 


•  Opens  a  Message  dialog  box. 

7 

void  changeFocus(w,  focus,  call_data) 

Widget  w,  focus; 

XmAnyCallbackStiuct  *call_data; 

{ 

Widget  shell  =  XtParent(w); 

Display  *dpy  =  XtDisplay(w); 

Window  win  =  XtWindow(focus); 

Widget  bfocus; 

XWindowAttributes  att; 
long  mask; 

extern  Widget  getTopShellO; 

bfocus  =  XmGetFocusWidget(getTopShell  (focus)); 
if  (XmlsPushButton(bfocus)) 

XtCallActionProc (bfocus,  "Disarm",  NULL,  NULL,  0); 
XtSetKeyboardFocus(getTopShell(focus),  focus); 
XGetWindowAttributes(dpy,  win,  &att); 
mask  =  att.your_event_mask  A  ButtonPressMask; 
XSdectlnput(dpy,  win,  mask); 

XtDestroyWidget(shel!) ; 

call_data  =  NULL; 

>  /*  end  changeFocus  7 


/— *7 

void  continueFocus(wt  focus,  call_data) 

Widget  w,  focus; 

XmAnyCallbackStruct  *call_data; 

{ 

Widget  shell  =  XtParent(w); 

Widget  bfocus; 

extern  Widget  getTopShellO; 

bfocus  -  XmGetFocusWidget(getTopSheil(focus)); 
if  (XmlsPushButton(bfocus)) 
XtCallActionProcfbfocus,  "Disarm",  NULL,  NULL,  0); 
XtDestroyWidget(shell); 

call__data  =  NULL; 

>  r  end  continueFocus  7 


/•— V 

void  createMessageDialog2  (parent,  title,  message,  type,  focus) 

Widget  parent; 
char  title, 

•message; 
int  type; 

Widget  focus; 

{ 

Widget  messageBox; 

Xm  String  string, 

okString, 
xmtitJe; 

Arg  args  pjj; 

int  n  =  0; 

string  =  XmStringCreateLtoR  (message,  XmSTRING_DEFAULT_CHARSET); 
okString  =  XmStringCreateSimple  fOIC); 

xmtrtie  =  XmStringCreateLtoR  (title,  Xm  STRING  DEFAULT  CHARSET); 
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XtSetArg  (args  [n],  XmNdialogTltie,  xmtitle);  n++; 

XtSetArg  (args  [n],  XmNmessageString,  string);  n++; 

XtSetArg  (args  [nj,  XmNautoUnmanage,  False);  n++; 

XtSetArg  (args  [nj,  XmNcancelLaboIString,  okString);  n++; 

XtSetArg  (args  [n],  XmNdialogStyle.  XmOIALOG_FULL_APPUCAT10N_MODAL);  n++; 
messageBox  =  XmCreateMessageDialog  (parent,  “Message",  args,  n); 

if  (type  =  XmDIALOG_ERROR) 

XtAddCallback  (messageBox,  XmNcancelCallback, 

(XtCallbackProc)  cbangeFocus,  focus); 

else 

XtAddCallback  (messageBox,  XmNcancelCallback, 

(XtCallbackProc)  continueFocus,  focus); 

XtUnmanageChild  (XmMessageBoxGetChild  (messageBox,  XmOIALCX3_OK_BUTTON}); 
XtUnmanageChild  (XmMessageBoxGetChild  (messageBox,  XmDIALOG_HELP_BUTTON)); 

XtVaSetValues  (messageBox,  XmNdialogType, 

type  =  NULL  ?  XmDIALOG_MESSAGE :  type,  NULL); 

XmStringFree  (string); 

XmStringFree  (okString); 

XmStringFree  {xmtitle); 

XtVaSetValues(getTopShell(messageBox),  XmNmwmlnputMode, 
MWMJNPUT_SYSTEM_MODAL1  NULL); 

XBell  (XtDispiay  (messageBox),  50); 

XtManageChild  (messageBox); 

}  I*  end  createMessageDialog2  */ 


•  Opens  a  Exit  dialog  box 
V 

static  Boolean  textValidCheck  (text) 

Widget  text; 

{ 

char  "filename; 
char  "tail,  msg[80]; 

Display  "dpy  =  XtDisplay(text); 

Window  win  =  XtWindow(text); 

XWindowAttributes  att 
long  mask; 

extern  char  "necInputFilename; 
extern  void  createMessageDialog20; 
extern  Widget  getTopShellO; 

XGetWindowAttnbutes(dpy,  win,  &att); 

mask  =  attyour_event_mask  |  Button PressMask; 

XSelectlnput(dpy,  win,  mask); 

filename  =  XmTextGetStnng(text); 

if  (nednputFilename) 

if  (strcmp (filename,  necInputFilename)  ==  0) 
return  True; 

if  (!filename[0D  { 

Xtfree  (necInputFilename); 

Xtfree  (filename); 
necInputFilename  =  NULL; 
sprintf(msg,  "Empty  file  name"); 
createMessageDialog2(getTopShell(text),  "Error",  msg, 
XmOIALOG_ERROR,  text); 

XtFree  (filename); 
return  False; 

} 

tail  =  strstr  (filename,  *\nec“); 
if  (Itail)  { 

sprintf(msg,  "Improper  file  extension  %s",  filename); 
createMessageDialog2(getTopShell(text),  "Error",  msg, 
XmDIALOG_ERROR,  text); 

Xtfree  (filename); 
return  False; 

> 

Xtfree  (nednputfilename); 

necInputFilename  =  XtMalloc(strien  (filename)  +  1); 

strcpy(nednputFilename,  filename); 

Xtfree  (filename); 
return  True; 

}r  end  textValidCheck*/ 

/— **/ 

void  exitOkCallback(w,  text  call_data) 

Widget  w,  text; 

XmAnyCallbackStruct  "call  data; 

{ 

Widget  shell  =  XtParent(w); 
extern  Boolean  sphigsOff; 
extern  char  "necInputFilename; 
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extern  char  ‘inputFilename; 
extern  void  momExportActionO; 
extern  void  savelnitEnvQ; 

if  (!textValidCheck(text)) 
return; 

if  (necInputFilename  &&  neclnputFilename[0])  { 
mom  Expo  rtAction(nocinputFilenarne); 

> 

savdnitEnv(neclnputFilename);  /•  Save  current  ‘.nee  into  init  file  V 
if  (IsphigsOff)  SRGP^end  0;  r  Disable  SRGP  */ 

XtDestro>Widget(shel[); 

XtOoseDisplay  (XtDisplay(w)); 

calLdata  =  NULL; 
exit  (0); 

}/*  end  exitOkCallback  */ 

void  exitCancelCallback(w,  dient_data,  call_data) 

Widget  w; 

XtPointer  client_data; 

XmAnyCallbackStruct  *caU_data; 

{ 

extern  char  ‘necInputFilename; 
extern  void  savelnrtEnv0; 
extern  Boolean  sphigsOff; 

savelnitEnv(neclnputFilename);  !*  Save  current  *.nec  into  init  file  */ 
if  (IsphigsOff)  SRGP_end  0;  /*  Disable  SRGP  */ 

XtCtoseDisplay  (XtDisplay(w)); 

dient  data  =  NULL; 
calLdata  =  NULL; 
exit  (0); 

>  r  end  exitCancelCaliback  */ 

void  createExitDialog  (parent,  title,  message) 

.Widget  parent; 

char  *trtJe, 

•message; 

{ 

Widget  messageBox,  text; 

Xm  String  string, 

ok  String, 
cancelstring, 
xmfcitle; 

Arg  args  [10]; 

int  n  =  0; 

extern  char  ‘necInputFilename; 

string  =  XmStringCreateLtoR  (message,  XmSTRINGJ)EFAULT_CHARSET}; 

okString  =  XmStringCreateSimple  fOIC); 

cancelstring  =  XmStringCreateSimple  (XanceO; 

xmtitle  =  XmStringCreateLtoR  (title,  XmSTRING_DEFAULT_CHARSET); 

XtSetArg  (args  [n],  XmNdialogTitle,  xmtitle);  n++; 

XtSetArg  (args  [nj,  XmNmessageString,  string);  n++; 

XtSetArg  (args  [nj,  XmNautoUnmanage,  False);  n++; 

XtSetArg  (args  [nj,  XmNcancelLabelString,  cancelstring);  n++; 

XtSetArg  (args  [nj,  XmNokLabelString,  okString);  n++; 

XtSetArg  (args  [n],  XmNdialogStyle,  XmDIALOG_FULL_APPLICAT10N_MODAL);  n++; 
messageBox  =  XmCreateMessageDia log  (parent,  "Message-,  args,  n); 

text  =  XtCreateManagedWidgetftexr,  xmTextWidgetClass, 
messageBox,  NULL,  0); 
if  (necInputFilename  &&  neclnputFilename[0]) 

XmT extSetStri  n  g  (text  nednputFilename); 
else 

XmTextSetString(text.  "untitled. nec"); 

XtAddCallback  (messageBox,  XmNokCallback, 

(XtCallbackProc)  exitOkCallback,  text); 

XtAddCallback  (messageBox,  XmNcancelCallback, 

(XtCallbackProc)  exitCancelCaliback,  NULL); 

XtUnmanageChiid  (XmMessageBoxGetChild  (messageBox,  XmDIALOG_HELP_BUTTON)); 

XtVaSetValues  (messageBox,  XmNdialogType,  XmDI ALOG_WARNING ,  NULL); 

XmStringFree  (string); 

XmStringFree  (okString); 

XmStringFree  (canceiString); 

XmStringFree  (xmtitje); 

XtVaSetValues(getTopShelI(messageBox),  XmNmwmlnputMode, 

MWM_INPUT_SYSTEM— MODAL,  NULL); 

XBell  (XtDisplay  (messageBox),  50); 

XtManageChild  (messageBox); 
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>  r  end  createExitDialog  V 


. . 

void  promptMessageOkCB(w,  text  cbs) 
Widget  w; 

Widget  text 

XmAnyCallbackStruct  "cbs; 

{ 

extern  void  openMomlmportWindowQ; 
extern  char  •momFilename; 

XtFree  (momFilename); 
momFilename  =  XmTextGetStri  rig  (text); 

open  Mom  ImportWindowO; 
XtDe*troyWidget(XtParent(w)); 

cbs  =  NULL; 


>  r  end  promptMessageOkCB  V 

. / 

void  promptMessageOkCB2(w,  text  cbs) 

Widget  w, 

Widget  text 

XmAnyCallbackStruct  *cbs; 

{ 

extern  char  ‘exportFilename; 
extern  char  *neclnputfilename; 
extern  void  momExportActionO; 

XtFree  (expoitFilename); 
exportFilename  =  XmTextGetString(text); 
momExportAction(exportFilename); 

XtFree  (nednputFilename); 
necInputFtlename  =  strdup(exportFilename); 
XtDestroyWidget(XtParent(w)); 

cbs  =  NULL; 

}  r  end  pmmptMessageOkCB2  7 

r . . . f 

void  promptMessageCancelCB(w,  data,  cbs) 

Widget  w; 

XtPointer  data; 

XmAnyCallbackStruct  *cbs; 

{ 

SkipPrompt  =  True; 

XtDestroyWidget(XtParent(w)) ; 

data  =  NULL; 
cbs  =  NULL; 


}  r  end  promptMessageCancelCB  V 

/ . . . . . *w***mw,mw/ 

void  createPromptMessageDialog (parent  tide,  message,  type,  file) 

Widget  parent 

char  *titie, 

’message; 
int  type; 

char  file; 

{ 

Widget  messageBox,  text 

Xm  String  string, 
xmtitte; 

Arg  args  [5]; 

int  n  =  0; 

char  *ext 

string  =  XmStringCreateLtoR  (message,  Xm  STRING  DEFAULT  CHARSET); 
xm  title  =  XmStringCreateLtoR  (title,  XmSTRJNGJ3EFAULT_CHARSET); 

XtSetArg  (args  [n],  XmNdialogTrtle,  xmtitle);  n++; 

XtSetArg  (args  [nj,  XmNmessageString,  string);  n++; 

XtSetArg  (args  [nj,  XmNautoUnmanage,  False);  n++; 

XtSetArg  (args  [nj,  XmNdialog Style,  XmDIALOG_FUU__APPUCAT10N_MODAL);  n++; 
messageBox  =  XmCreateMessageDialog  (parent  "Message",  args,  n); 

XtUnmanageChild  (XmMessageBoxGetChild  (messageBox,  XmDIALOG_HELP_BUTTON)); 
XtVaSetValues  (messageBox,  XmNdtalogType, 

type  =  NULL  ?  XmDIALOG_MESSAGE :  type,  NULL); 

XmStringFree  (string); 

XmStringFree  (xmtitle); 

XtSetArg  (args  [0],  XmNeditMode,  XmSINGLE_UNE_EDrT); 

XtSetArg  (args  [1  j,  XmNcolumns,  30); 

text  =  XmCreateText  (messageBox,  "text",  args,  2); 

XtManageChild  (text); 

XmTextSetString(text  file); 

XmTextSetlnseftionPosition(text  stilen(file)); 

XtVaSetValues(messageBox,  XmNinitialFocus,  text  NULL); 

XiAddCallback  (messageBox,  XmNcanceJCallback, 
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(XtCallbackProc)  promptMessageCancelCB,  NULL); 
ext  =  strrchrffile. 

If  (strum p (ext  ".mom**)  ==  0) 

XtAddCallback  (messageBox,  XmNokCallback, 

(XtCallbackProc)  promptMessageOkC8,  text); 
else  if  (strcmp(ext  “.nee")  —  0) 

XtAddCallback  (messageBox,  XmNokCallback, 

(XtCallbackProc)  promptMessageOkCB2,  text); 

XtVaSetValues(getTopShell(messageBox),  XmNmwmlnputWode, 
MWMJNPUT_SYSTEM_MODAL,  NULL); 

XBell  (XtDisplay  (messageBox),  50); 

XtManageChild  (messageBox); 

}  r  end  createPromptMessageDialog  */ 

r . 

void  cfeat©PromptWessageDialog2(parent  title,  message,  type,  file) 

Widget  parent 

char  •title, 

•message; 
int  type; 

char  “file; 

{ 

Widget  messageBox,  text 

Xm String  string,  okString,  cancelstring, 

xmtitle; 

Arg  args  [10J; 

int  n  =  0; 

char'ext 

string  =  XmStringCreateLtoR  (message,  XmSTRING_DEFAULT_CHARSET); 
xmtitle  =  XmStringCreateLtoR  (title,  XmSTRING_DEFAULT_CHARSET); 

XtSetArg  (args  [n],  XmNdialogTitie,  xmtitle);  n++; 

XtSetArg  (args  [n],  XmNmessageString,  string);  n++; 

XtSetArg  (args  [nj,  XmNautoUnmanage,  False);  n++; 

XtSetArg  (args  [n],  XmNdialogStyle,  XmDIALOG_FULL_APPLICATION_MODAL);  n++; 
okString  =  XmStringCreateSimple  ("Continue"); 
cancelstring  =  XmStringCreateSimple  (“Skip"); 

XtSetArg  (args  fn],  XmNcancelLabel String,  cancelstring);  n++; 

XtSetArg  (args  (nj,  XmNokLabelString,  okString);  n++; 
messageBox  =  XmCreateMessageDialog  (parent  "Message",  args,  n); 

XtUnmanageChild  (XmMessageBoxGetChild  (messageBox,  XmDIALOG_HELP_BUTTON)); 
XtVaSetValues  (messageBox,  XmNdialogType, 

type  ~  NULL  ?  XmDIALOG_MESSAGE :  type,  NULL); 

XmStringFree  (string); 

XmStringFree  (xmtitle); 

XmStringFree  (okString); 

XmStringFree  {cancelstring); 

XtSetArg  (args  [0],  XmNeditMode,  XmSINGLE_UNE_EDIT); 

XtSetArg  (args  [ij,  XmNcolumns,  30); 

text  =  XmCreateText  (messageBox,  "text",  args,  2); 

XtManageChild  (text); 

XmTextSetString(text,  file); 

XmTextSetlnsertionPosition(text  strien(file)); 

XtVaSetVatues(messageBox,  XmNinitialFocus,  text  NULL); 

XtAddCallback  (messageBox,  XmNcancelCallback, 

(XtCallbackProc)  promptMessageCancelCB,  NULL); 
ext  =  stnchr(file,  *.*); 
if  (strcmp(ext  “.mom")  ==  0) 

XtAddCallback  (messageBox,  XmNokCallback, 

(XtCallbackProc)  prom ptMes sag eOkCB,  text); 
else  if  (strcmp(ext  "nee")  ==  0) 

XtAddCallback  (messageBox.  XmNokCallback, 

(XtCallbackProc)  promptMessageOkC82,  text); 

XtVaSetValues(getTopShell (messageBox),  XmNmwmlnputMode, 
MWM_INPUT_SYSTEM_MODAL,  NULL); 

XBell  (XtDisplay  (messageBox),  50); 

XtManageChild  (messageBox); 

}  r  end  createPromptMessageDia!og2  7 


void  newSaveOkCallback(w,  text  call_data) 
Widget  w,  text; 

XmAnyCallbackStruct  ‘call  data; 

{ 

Widget  shell  =  XtParent(w); 
chartitle[80]; 

extern  char  ‘necInputFilename; 
extern  void  clearOatalnputs  0; 
extern  void  momExportActionQ; 


if  (ItextValidCheck(text)) 
return; 

if  (neclnputfilename  &&  neclnputFilename(0D 
mornExportAction(neclnputFilename); 


dearOatalnputsQ; 
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sprintfftitie,  "NEEDS  %s  -  [%*J",  VERSION,  “New  File-); 

XtVaSetValues^pLevel,  XmNtitle,  titio.  NULL); 

XtDestroyWidget(shelf); 

call_data  =  NULL; 

>  r  end  newSaveOkCallback  •/ 

. . — . / 

void  newSaveCancelCallback(w,  client  data,  calMata) 

Widget  w; 

XtPointer  client_data; 

XmAnyCallbackStruct  *call_data; 

{ 

chartrtle[$0]; 

Widget  shell  =  XtParent(w); 
extern  void  dearOatafnputs  0; 

dea rDa tain  puts 0; 

sprintf  (title,  -NEEDS  %s  -  [%sr,  VERSION,  “New  Rle“); 

XtVaSetValues(topLevel,  XmNtitle,  title,  NULL); 

XtDestroyWidget(sheil); 

dient_data  =  NULL; 
cail_data  =  NULL; 

>  r  end  exitCanceiCaitback  V 

r— • — . - . / 

void  createNewSaveDialog  (parent,  title,  message) 

Widget  parent; 
char  title, 

•message; 

< 

Widget  messageBox,  text; 

Xm  String  string, 

okString, 
cancelstring, 
xmtitle; 

Arg  args  [10]; 

int  n  =  0; 

extern  char  •neclnputRlename; 
extern  Widget  getTopShellO; 

string  =  XmStringCreateLtoR  (message,  XmSTRING_DEFAULT_CHARSET); 

okString  =  XmStringCreateSimple  fOK“); 

cancelstring  =  XmStringCreateSimple  (“Cancel-); 

xmtitle  =  XmStringCreateLtoR  (title,  XmSTRING_DEFAULT_CHARSET); 

XtSetArg  (args  [n],  XmNdialogTrde,  xmtitle);  n++; 

XtSetArg  (args  [nj,  XmNmessageString,  string);  n++; 

XtSetArg  (args  [nj,  XmNautoUnmanage,  False);  n++; 

XtSetArg  (args  [nj,  XmNcancelLabelString,  cancelstring);  n++; 

XtSetArg  (args  [nj,  XmNokLabelString,  okString);  n++; 

XtSetArg  (args  [n],  XmNdialogStyle,  XmDIALOG_FULL_APPUCATION_MODAl);  n++; 

messageBox  =  XmCreateMessageDialog  (parent  “Message",  args,  n); 

text  =  XtCreatoManagedWidgetflexT,  xmTextWidgetCIass, 
messageBox,  NULL,  0); 
if  (neclnputRlename  &&  neclnputFilename[0]) 

XmTextSetString(text  neclnputRlename); 
else 

XmTextSetString(text  "untitled. nee") ; 

XtAdd Callback  (messageBox,  XmNokCallback, 

(XtCaJIbackProc)  newSaveOkCallback,  text); 

XtAdd Callback  (messageBox,  XmNcancefCallback, 

(XtCallbackProc)  newSaveCancelCallback,  NULL); 

XtUnmanageChild  (XmMessageBoxGetChild  (messageBox,  XmDIALOG_HELP_BUTTON)); 

XtVaSetValues  (messageBox,  XmNdialogType,  XmDlALOG_WARNING,  NULL); 

XmStringFree  (string); 

XmStringFree  (okString); 

XmStringFree  (cancelstring); 

XmStringFree  (xmtitle); 

XtVaSetVa!ues(getTopShell(messageBox),  XmNmwmlnputMode, 
MWM_INPUT_SYSTEM_MODAL,  NULL); 

XBell  (XtDispiay  (messageBox),  50); 

XtManageChiid  (messageBox); 

>  r  end  createNewSaveDialog  7 

r . . . / 

void  openSaveOkCal!back(w,  text  call_data) 

Widget  w,  text 

XmAnyCallbackStruct  *call_data; 

{ 

Widget  shell  =  getT opShell(w) ; 
chartitle(80]; 

extern  char  'neclnputRlename; 
extern  void  mom  Expo  rtActionQ; 
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if  (ltextValidCheck(text)) 
return; 

if  (neclnputFiiename  &&  neclnputFiiename[OD 
mom  Expo  rtAction(nednputFilename); 

sprintf(titie,  "NEEDS  %s  -  [%sf,  VERSION,  neclnputFiiename); 

XtVaSetValues(topLevel,  XmNtitie,  title,  NULL); 

XtDestroyWidget(shell); 

call__data  =  NULL; 

}  r  end  openSaveOkCallback  V 

void  openSaveCancelCailback(w,  dient_data,  calMata) 

Widget  w, 

XtPointer  client_data; 

XmAnyCallbackStaict  "call  data; 

{ 

Widget  shell  =  getTopShell(w); 

XtDestroyWidget(shell); 

dient_data  =  NULL; 
call.data  =  NULL; 

}  /*  end  openSaveCancelCallback  V 

void  createOpenSaveDiaiog  (parent,  title,  message) 

Widget  parent; 

char  title, 

•message; 

{ 

Widget  messageBox,  text; 

XmString  string, 
okString, 
cancelstring, 
xmtitie; 

Arg  args  [10); 

int  n  =  0; 

extern  char  *neclnputFilename; 
extern  Widget  getTopShellO; 

string  -  XmStringCreateLtoR  (message,  XmSTRING_DEFAULT_CHARSET); 

okString  =  XmStringCreateSimple  ("OK"); 

cancelstring  =  XmStringCreateSimple  pCancel"); 

xmtitie  =  XmStringCreateLtoR  (title.  XmSTRING_DEFAULT_CHARSET); 

XtSetArg  (args  (n),  XmNdialogTitle,  xmtitie);  n*+; 

XtSetArg  (args  [nj,  XmNmessageString,  string);  n++; 

XtSetArg  (args  [nj,  XmNautoUnmanage,  False);  n++; 

XtSetArg  (args  (nj,  XmNcancelLabelString,  cancelstring);  n++; 

XtSetArg  (args  [nj,  XmNokLabelString,  okString);  n++; 

XtSetArg  (args  [nj,  XmNdialogStyle,  XmDIAL0G_FULL_APPllCAT10N_M0DAL);  n++; 

messageBox  =  XmCreateMessageDialog  (parent  "Message",  args,  n); 

text=  XtCreateManagedWidgetftexT,  xmTextWidgetClass, 
messageBox,  NULL,  0); 
if  (neclnputFiiename  &&  neclnputFilename[0]) 

XmTextSetString(text  neclnputFiiename); 
else 

XmT extSetStri n g (text  "untitled. nec"); 

XtAddCallback  (messageBox,  XmNokCallback, 

(XtCallbackProc)  openSaveOkCallback,  text); 

XtAddCallback  (messageBox,  XmNcancelCallback, 

(XtCallbackProc)  openSaveCancelCallback,  NULL); 

XtUnmanageChild  (XmMessageBoxGetChild  (messageBox,  XmDIALOG_HELP_BUTTON)); 

XtVaSetValues  (messageBox,  XmNdialogType,  XmDIALOG_WARNlNG,  NULL); 

XmStringFree  (string); 

XmString  Free  (okString); 

XmStringFree  (cancelstring); 

XmStringFree  (xmtitie); 

XtVaSetValue$(getTopShell(messageBox),  XmNmwmlnputMode, 
MWM_INPUT_SYSTEM_MODAL,  NULL); 

XBell  (XtDisplay  (messageBox),  50); 

XtManageChild  (messageBox); 

}  r  end  createOpenSaveDiaiog  7 
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A.5  cFileMenu.c,  cFileMenu.h 


cFileMenu.c: 

r 

*  The  procedures  in  this  file  are  the  callbacks  for 

•  File  menu  items. 

7 

include  <stdio.h> 

#mcfude  <stdlib.h> 
include  <  string. h> 

#indude  <X11/Intrinsic.h> 
include  <Xm/Xm.h> 

#indude  <Xm/RIeSB.h> 
include  <Xm/Texth> 
include  <Xm/MwmUtil.h> 

#indude  "cFileMenu.h" 
include  “control. h" 

#define  FloatMalloc(x)  (float  *)XtMalloc(sizeof(fioat}  *  x); 

#define  IntMalloc(x)  (int  *)XtMal!oc(sizeof(int)  *  x); 

extern  Widget  topLevel; 
extern  char  "nednputRlename; 
char  "inputFilename  =  NULL; 

char  "exportRlename  =  NULL; 

Boolean  saveAlert  =  False; 

Widget  saveRleSelectionDialog; 
static  Widget  openRIeSelectionOialog; 

r  forward  declarations  of  procedures  7 

extern  RLE  "efopen  Q; 
extern  char  *getf  tlename  0; 
extern  Widget  createRleSelectionDialog  0; 
extern  void  createMessageOialogO; 

static  void  readOkCB  0; 
static  void  saveAsOkCB  0; 
void  savelnputToRle  0; 

int  writelnputToFile  0; 

int  readlnputFromRie  0; 

Boolean  searchFileQ; 


*  Clears  out  old  data  and  sets  the  inputRlename  back  to  "Untitled". 
7 

void  clearOatalnputs  0 

{ 

extern  char  "necInputRlename,  "necOutputRlename; 

char  string[1 60]; 

extern  float  FrequenciesScale  Q; 

extern  struct  link  “checkUst,  "position!],  "holdList; 

extern  struct  countRecord  record; 

struct  link  "node; 

extern  void  updatePositionO; 

extern  void  copyCountO; 

extern  struct  link  “copyListO; 

extern  Widget  editCtrlShell,  edttGeoShell; 

extern  struct  glink  "gcheckList; 

extern  struct  link  "checkList; 

extern  struct  glink  "gcheckList,  "gpositionQ,  "gholdUst; 

extern  struct  g countRecord  g record; 

extern  void  gUpdatePositionO; 

extern  void  g CopyCountO; 

extern  struct  glink  "gCopyListO; 

/*  Free  Comments  7 
if  (CommentCount) 

XtFree  ((char  *)CM); 

CM  =  NULL; 
if  (SWireCount)  { 

XtFree  ((char  *)GWJTG); 

XtFree  ({char  *)GW  END1); 

XtFree  ({char  •)GW_END2); 

XtFree  ((char  *]GW_NS); 

XtFree  ((char  *)GW_RAD); 

} 

GW  UG  =  NULL; 

GW  END1  =  NULL; 

GW  END2  “  NULL; 

GW  NS  =  NULL; 

GW_RAD  =  NULL; 
if  (TaperWireCount)  { 

XtFree  ((char  *)GC  ITG); 

XtFree  ((char  *)GC  END1); 

XtFree  {{char  *)GC_END2); 

XtFree  ((char  *)GC_NS); 

XtFree  ((char  ")GC  IX); 
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XtFree  ((char  *)GC  RDEL); 
XtFree  ((char  *)GC_RAD1); 
XtFree  ((char  *)GC  RAD2); 

> 

GC  ITG  =  NULL; 

GC_END1  =  NULL; 

GC_END2  =  NULL; 

GC  NS  =  NULL; 

GCJX  =  NULL; 

GC  RDEL  =  NULL; 

GC  RADI  =  NULL; 

GCJRAD2  =  NULL; 
rf  (CWireCount)  { 

XtFree  ((char  •)  CW  TO); 
XtFree  ((char  *)  CW” END1); 
XtFree  ((char  *)  CW  END2); 
XtFree  ((char  *)  CW_NS); 
XtFree  ((char  •)  CWJCA7); 
XtFree  ((char  *)  CW  RAD); 
XtFree  ((char  *)CW  RHM); 
XtFree  ((char  *)CW  ZM); 

} 

CW  TO  =  NULL; 

CW.END1  =  NULL; 

CW  END2  =  NULL; 

CW  NS  =  NULL; 

CWJCAT  =  NULL; 

CW  RAD  =  NULL; 

CW_RHM  =  NULL; 

CW_ZM  =  NULL; 
rf  (WireArcCount)  { 

XtFree  ((char  *)  GA  TO); 

XtFree  ((char*)  GAINS); 

XtFree  ((char  *)  GA_RADA); 
XtFree  ((char  •)  GA_ANG1); 
XtFree  ((char  •)  GA  ANG2); 
XtFree  ((char  *)  GA~RAD); 

) 

GAJTG  =  NULL; 

GA_NS  =  NULL; 

GA_RADA  =  NULL; 

GA_ANG1  =  NULL; 

GA_ANG2  =  NULL; 

GA_RAD  =  NULL; 
if  (HetixOrSpiralCount)  { 

XtFree  ((char  *)  GH_TO); 

XtFree  ((char  •)  GH_NS); 

XtFree  ((char  •)  GHJSPX); 
XtFree  ((char  *)  GH  TURNS); 
XtFree  ((char  *)  GH_ZLEN); 
XtFree  ((char  •)  GHJHR1); 
XtFree  ((char  *)  GH_HR2); 
XtFree  ((char  *)  GH  WR1); 
XtFree  ((char  *)  GH_WR2); 

> 

GHJTG  =  NULL; 

GH  NS  =  NULL; 

GHJSPX  =  NULL; 

GHJTURNS  =  NULL; 

GH.ZLEN  =  NULL; 

GH_HR1  =  NULL; 

GH_HR2  =  NULL; 

GH  WRt  =  NULL; 

GH_WR2  =  NULL; 
if  (SurfacePatchCount)  { 

XtFree  ((char  •)  SP_NS); 

XtFree  ((char  *)  SP_Comer1); 
XtFree  ((char  *)  SP  Comer3); 
XtFree  {(char  *)  SP_Comer4); 
XtFree  ((char  •)  SP_Comer2); 

> 

SP  NS  =  NULL; 

SP  Corner!  =  NULL; 

SP  Comer2  =  NULL; 

SP_Comer3  =  NULL; 

SP_Comer4  =  NULL; 
if  (MultiplePatchCount)  { 

XtFree  ((char  *)  SM_Comer1); 
XtFree  ((char  •)  SM  Comet3); 
XtFree  ((char  *)  SM_Comer2); 
XtFree  ((char  *)  SM_Numben2); 
XtFree  ((char  •)  SM_Number23); 

) 

SM  ComeM  =  NULL; 
SM_Comer2  =  NULL; 
SM_Comer3  =  NULL; 
SM~Numben2  =  NULL; 
SM_Number23  =  NULL; 
if  (Transform Count)  ( 

XtFree  ((char  *)  GM_TOI); 
XtFree  ((char  *)  GM  NRPT); 
XtFree  ((char  *)  GM  ROX); 
XtFree  ((char  *)  GM_ROY); 


XtFree  ((char  *)  GM  ROZ); 

XtFree  ((char*)  GM_XS); 

XtFree  ((char  *)  GM  YS); 

XtFree  ({char  *)  GM_ZS); 

> 

GM_rTGI  =  NULL; 

GM  NRFT  =  NULL; 

GM_ROX  =  NULL; 

GM  ROY  =  NULL; 

GM_ROZ  =  NULL; 

GM_XS=  NULL; 

GM_YS  =  NULL; 

GM_ZS  =  NULL; 
if  (RotationCount)  { 

XtFree  ((char  *)  GR  fTGO; 

XtFree  ((char  *)  GR_NR); 

> 

GR  fTGI  =  NULL; 

GR_NR  =  NULL; 
if  (ReflectionCount)  { 

XtFree  ({char  *)  GX_ITG0; 

XtFree  {(char  *)  GXJXYZ); 

> 

GX  [TGI  =  NULL; 

GXJXYZ  =  NULL; 
if  (FrequencyCount)  { 

XtFree  ((char  *)  FRJFRQ); 

XtFree  ((char  *)  FR  NFRQ); 

XtFree  ((char  *}  FR_FMH Z); 

XtFree  ((char  *)  FR  DELFRQ); 

} 

FR  IFRQ  =  NULL; 

FR_NFRQ  =  NULL; 

FR_FMHZ  =  NULL; 

FR_DELFRQ  =  NULL; 
if  (LoadsCount)  { 

XtFree  ((char  *}  LD_LDTYP); 
XtFree  ((char  *)  LD_Tag); 

XtFree  ((char  *)  LDJDistance); 
XtFree  ((char  *)  LD_Distance2); 
XtFree  ((char  *)  LD_ZLR); 

XtFree  ((char  *)LD  ZLl); 

XtFree  ((char  *)  LD_ZLC); 

> 

LD_LDTYP  =  NULL; 

LDJTag  =  NULL; 

LD  Distance  =  NULL; 

LD  Distance2  =  NULL; 

LD  ZLR  =  NULL; 

LD~ZLJ  =  NULL; 

LD_ZLC  =  NULL; 
if  (VottageSourcesCount)  { 

XtFree  ((char*)  EX  Type); 

XtFree  {(char  *)  EX_Wire); 

XtFree  ({char  *)  EX_Format); 
XtFree  ((char  *)  EX_Distance); 
XtFree  ((char  *)  EX_Magnitude); 
XtFree  ((char*)  EX  Phase); 

XtFree  ((char*)  EX  NormaO; 

> 

EX  Type  =  NULL; 

EXJ/Vire  =  NULL; 

EX_Format  =  NULL; 

EX_Distance  =  NULL; 
EX_Magnrtude  =  NULL; 

EX  ..Phase  =  NULL; 

EX_Normal  =  NULL; 
if  (IncidentPlaneWaveCount)  { 
XtFree  ((char*)  EXJTYPE); 

XtFree  ((char  *)  EX_THETA_LO); 
XtFree  ((char  *)  EX JTH  ET A_STEP) ; 
XtFree  ((char  *)  EXJTHETA_NUM); 
XtFree  ((char*)  EX_PHIJ_0); 
XtFree  ((char  *)  EX_PHI_STEP); 
XtFree  ((char  *)  EX_PHI  NUM); 
XtFree  ((char  *)  EX_F>OL_ANGLE); 
XtFree  ((char*)  EX  POL  RATIO); 
XtFree  ((char  *)  EX  INC  MAG); 

> 

EXJTYPE  =  NULL; 

EX  THETA  LO  =  NULL; 

EX  THETA  STEP  =  NULL; 
EX_THETA  NUM  =  NULL; 
EX_PHLLO  =  NULL; 

EX_PHI_STEP  =  NULL; 

EX  PH!  NUM  =  NULL; 

EX_POL  ANGLE  =  NULL; 

EX  POL  RATIO  =  NULL; 
EXJNC_MAG  =  NULL; 
if  (TransmissionLines  Count)  { 

XtFree  ((char  *)  TL_Wirei); 

XtFree  {{char  *)  TL_Wire2); 

XtFree  ({char  *)  TL_Distance1); 
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XtFree  ({char  *)  TL  Distance2); 
XtFree  ((char  *)  TL_ZC); 

XtFree  ((char  *)  TL  TLEN); 
XtFree  ((char  *)  TL  Y1R); 
XtFree  ((char  *)  TL  Y1I); 

XtFree  ((char  *)  TL  Y2R); 
XtFree  ({char  *)  TLJttl); 

} 

TL  Wirel  =  NULL; 

TL_Wire2  =  NULL; 

TL  Distancel  =  NULL; 

TL  Distance2  =  NULL; 

TLJZC  =  NULL; 

TL  TLEN  =  NULL; 

TL  Y1R  =  NULL; 

TL_Y1I  =  NULL; 

TL_Y2R  =  NULL; 

TL_Y2i  =  NULL; 
if  (TwoPortNetsCount)  { 

XtFree  ((char  *)  NT_Wire1); 
XtFree  ((char  *)  NT  Wire2); 
XtFree  ((char  *)  NT_Distance1); 
XtFree  ((char  *)  NT  Distance2); 
XtFree  ((char  *)  NT_Y11R); 
XtFree  ((char  *)  NT_Y1 1 1); 
XtFree  ((char*)  NTY12R); 
XtFree  ((char  *)  NT_Y12(); 
XtFree  ((char  *)  NT  Y22R); 
XtFree  ((char  *)  NTIY22I); 

} 

NT_Wire1  =  NULL; 

NT_Wire2  =  NULL; 

NT_Di  stan  cel  =  NULL; 
NT_Distance2  =  NULL; 

NT_Y11R  =  NULL; 

NT_Y11l  =  NULL; 

NT_Y12R  =  NULL; 

NT.Y12I  =  NULL; 

NT  Y22R  =  NULL; 

NT_Y22I  =  NULL; 
if  (InsulatedWiresCount)  { 

XtFree  {(char  *)  IS  II); 

XtFree  ((char  *)  IS_ITAG); 
XtFree  ((char  *)  IS_Distance2); 
XtFree  {(char  *)  IS_Distance1); 
XtFree  ((char  *)  IS_EPSR); 
XtFree  {(char  *)  IS_SIG); 

XtFree  ((char  *)  IS_RADI); 

> 

ISJ1  =  NULL; 

ISJTAG  =  NULL; 
iS_Distance2  =  NULL; 

IS  Distancel  =  NULL; 

IS  EPSR  =  NULL; 

IS_SIG  =  NULL; 

IS.RADI  =  NULL; 
if  (AddGroundParamCount)  { 
XtFree  ((char  *)  GDJCLIF); 
XtFree  ({char  *)  GD_EPSR2); 
XtFree  ((char  *)  GD_S1G2); 
XtFree  ((char  *)  GD  CLT); 
XtFree  ((char  *)  GD_CHT); 
XtFree  ((char  *)  GD  CHT); 

> 

GDJCLIF  =  NULL; 

GO  EPSR2  =  NULL; 

GD.SIG2  =  NULL; 

GD  CLT  =  NULL; 

GD_CHT  =  NULL; 

GD_CHT  =  NULL; 
if  (UpperMediumParamCount)  { 
XtFree  ((char  *)  UM_EPSR); 
XtFree  ((char*)  UM_SIG); 

> 

UM  EPSR  =  NULL; 

UM_SIG  =  NULL; 
if  (MaxCouplingCount)  { 

XtFree  ((char  *)  CP_TAG1); 
XtFree  ((char  *)  CP_Distance1); 
XtFree  ((char  *)  CP_TAG2); 
XtFree  ((char*)  CP  Distance2); 

> 

CP_TAG1  =  NULL; 

CP_Distance1  =  NULL; 

CP  TAG2  =  NULL; 
CP_Distance2  =  NULL; 
if  (NearElectricCount)  ( 

XtFree  {(char  *)  NE_NEAR); 
XtFree  ((char  *)  NEJMRX); 
XtFree  {(char  *)NE  NRY); 
XtFree  ((char  *)  NE_NRZ); 
XtFree  ((char  *)  NE_XNR); 
XtFree  ((char*)NE  YNR); 


XtFree  ((char*)  NE  ZNR); 
XtFree  ({char  *)  NE  DXNR); 
XtFree  ((char  *)  NE  DYNR); 
XtFree  {(char  *)  NE_DZNR); 

> 

NE.NEAR  =  NULL; 

NE_NRX  =  NULL; 

NE_NRY  =  NULL; 

NE_NRZ  ~  NULL; 

NE  XNR  =  NULL; 

NE  YNR  =  NULL; 

NE_ZNR  =  NULL; 

NE  DXNR  =  NULL; 

NE.DYNR  =  NULL; 

NE_DZNR  =  NULL; 
if  (NearMagneticCount)  { 

XtFree  ((char  *)  NH_NEAR); 
XtFree  ({char  *)  NH  NRX); 
XtFree  ((char  *)  NH_NRY); 
XtFree  ((char  *}  NH  NRZ); 
XtFree  ((char  *)  NH  XNR); 
XtFree  ((char  *)  NH_YNR); 
XtFree  ((char  *)  NH_ZNR); 
XtFree  ((char  *)  NH  DXNR); 
XtFree  ((char  *)  NhIdYNR); 
XtFree  ((char  *)  NH_DZNR); 

} 

NH_NEAR  =  NULL; 

NH_NRX  =  NULL; 

NH_NRY  =  NULL; 

NHJMRZ  =  NULL; 

NH_XNR  =  NULL; 

NH  YNR  =  NULL; 

NH  ZNR  =  NULL; 

NH  DXNR  =  NULL; 

NH  DYNR  =  NULL; 

NHlDZNR  =  NULL; 
if  (RadiationPattemCount)  { 
XtFree  ((char  *)  RPJ1); 

XtFree  ((char  *)  RP_NTH); 
XtFree  ((char  •)  RP_NPH); 
XtFree  ((char  *)  RP__XNDA); 
XtFree  ((char  •)  RP  THETS); 
XtFree  ({char  *)RP_PHIS); 
XtFree  ((char  *)  RP  DTH); 
XtFree  ((char  *)  RP  DPH); 
XtFree  {(char  *)  RP_RFLD); 
XtFree  ((char*)  RP_GNOR); 

> 

RP  II  =  NULL; 

RP_NTH  =  NULL; 

RP_NPH  =  NULL; 

RP  XNDA  =  NULL; 

Rp“THETS  =  NULL; 

RP_PHIS  =  NULL; 

RP  DTH  s  NULL; 

RP_DPH  =  NULL; 

RP_RFLD  =  NULL; 

RP_GNOR  =  NULL; 
if  (GroundParamCount)  { 

XtFree  ((char  *)GN  IPERF); 
XtFree  ((char  *)  GN  NRADL); 
XtFree  ((char  *)GN  EPSR); 
XtFree  ((char  *)GN_S!G); 
XtFree  ((char  *)GN_F3); 

XtFree  ((char  *)GN_F4); 

XtFree  ((char  *)  GN_F5); 

XtFree  ((char  *)  GN_F6); 

> 

GNJPERF  =  NULL; 

GN  NRADL  -  NULL; 

GN  EPSR  =  NULL; 

GN_SIG  *  NULL; 

GN_F3  =  NULL; 

GN_F4  =  NULL; 

GN  F5  =  NULL; 

GN_F6  =  NULL; 
if  (PrintChargeCount)  { 

XtFree  ((char  *)  PQ  IPTFLQ); 
XtFree  ((char  *)  PQ  IPTAQ); 
XtFree  ((char  *)  PQ_Distance1); 
XtFree  ((char  *)  PQ_Distance2); 

> 

PQJPTFLQ  =  NULL; 

PQJPTAQ  =  NULL; 
PQ_Distance1  =  NULL; 
PQ_Distance2  =  NULL; 
if  (PrintLengthCount)  { 

XtFree  ({char  *)  PS_FLG); 

> 

PS_FLG  =  NULL; 
if  (PrintCurrentCount)  { 

XtFree  ((char  *)  PTJPTFLQ); 


XtFree  ((char*)  PTJPTAQ); 

XtFree  ((char*)  PTJOistancel); 

XtFree  ((char*)  PT_Distance2); 

} 

PTJPTFLQ  =  NULL; 

PTJPTAQ  =  NULL; 

PT  Drstancel  =  NULL; 

PT_Distance2  =  NULL; 

/*  Clear  out  element  counts  for  all  data  arrays  */ 

NodeCount  =  0; 

SWireCount  =  0; 

TaperWireCount  =  0; 

CWireCount  =  0; 

WireArcCount  =  0; 

HelixOrSpiralCount  =  0; 

SurfacePatchCount  =  0; 

MultiplePatchCount  -  0; 

RotationCount  =  0; 

Reflect  onCount  =  0; 

Transform  Count  =  0; 

FrequencyCount  =  1 ;  /*  Always  have  at  least  one  frequency!  */ 
InsulatedWiresCount  -  0; 

LoadsCount  =  0; 

UpperMediumParamCount  =  0; 

VoltageSourcesCount  =  0; 

IncidentPlaneWaveCount  =  0; 

TwoPortNetsCount  =  0; 

TransmissionLinesCount  =  0; 

MaxCouplingCount  =  0; 

AddGroundParamCount=  0; 

NearElectricCount  =  0; 

NearMagneticCount  =  0; 

RadiationPattemCount  =  0; 

GroundParamCount  =  0; 

PrintChargeCount  =  0; 

PrintCurrentCount  =  0; 

PrintLengthCount  =  0; 

ExecuteCount  =  1 ; 

CommentCount  =  0; 

r  Set  environment  dimension  &  frequency  unit  to  defaults  */ 
Frequencylndex  =  MHZ; 

Envlndex  =  FREE_SPACE; 

Dimlndex  =  METERS; 

r  Set  Frequency  to  defaults  */ 

FRJFRQ  =  IntMalloc  (FrequencyCount); 

FR_NFRQ  =  IntMalloc  (FrequencyCount); 

FR_FMHZ  =  RoatMalloc  (FrequencyCount); 

FR  DELFRQ  =  FloatMalloc  (FrequencyCount); 

FRJFRQ(0]  =  0; 

FR  NFRQ(0)  =  1 ; 

FR~FMHZ[0]  =  299.8; 

FR_DELFRQ(0)  =  1.0; 

r  initialize  link  list  7 

checkList  =  emptyList(checkList); 

checkList  -  (struct  link  *)XtMalloc(sizeof (struct  link)); 

checkList->  string  =  NULL; 

checkList->prev  =  NULL; 

checkList->next  =  NULL; 

node  =  checkList 

r  FR  card  V 

node-»next  =  (struct  link  *)XtMalloc(sizeof(stnjct  link)); 

node->next->prev  =  node; 

node  =  node*>next 

node->next  =  NULL; 

node->tableType  =  FR; 

node->table.tr.frJfrq  =  FRJFRQ[0]; 

node->table.fr.fr_nfrq  =  FR_NFRQ[0); 

node~>table.fr.fr  fmhz  =  FR  FMHZ[0]; 

node->tabte.fr.fr_delfrq  =  FR_DELFRQ[0]; 

sprintf  (string,  TR  %d,  %d,  0,  0,  %.3f,  %.3 T,  FRJFRQ[0], 

FR_NFRQ[0],  FR  FMHZ[0]  *  FrequenciesScaie(Frequencylndex], 
FR_DELFRQpDf 

node->string  =  XmStringCreateSimple  (string); 
r  XQ  card  V 

node->next  =  (struct  link  *)XtMalloc(sizeof(struct  link)); 

node->next-»prev  =  node; 

node  =  node->next 

nod  e->  next  =  NULL; 

node->tableType  =  XQ; 

sprintf  (string,  “XQ**); 

node-> string  =  XmStringCreateSimple  (string); 
r  EN  card  V 

node->next  =  (struct  link  *)XtMaltoc(sizeof(struct  link)); 

node->next->prev  =  node; 

node  =  node->next 

nod  e->  next  =  NULL; 

node-»tableType  =  EN; 

sprintf  (string,  "ENT); 

node->string  =  XmStringCreateSimple  (string); 
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updatePosition  (position,  checkList); 

copyCount(&record); 

holdList  =  copyList(checkList,  holdList); 

gcheckList  =  gEmptyList(g  checklist); 

gUpdatePosrtiontgpositjon,  gcheckUst); 

gCopyCount(&grecord); 

gholdList  =  gCopyListfgcheckList,  gholdList); 

r  Set  necinputFilename  to  NULL  */ 
if  (nednpiftRienamo  !=  NULL)  { 

XlFree  (nednputFilerwme); 
necinputFilename  =  NULL; 

} 

if  (necOutputFilename  !=  NULL)  { 

XtFree  (necOutputFilename); 
necOutputFilename  =  NULL; 

> 

if  (inputfilename  i=  NULL)  { 

XtFree  (inputFiiename); 
inputFilename  =  NULL; 

> 

saveAlert  =  False; 

>  r  end  dearOatalnputs  V 

r~— ' . . *• . / 

void  exitNeeds  0 

{ 

extern  void  createExitDialogO; 
extern  void  savelnitEnvQ; 
extern  Boolean  sphigsOft 

char  *msg  =  "Input  data  have  been  modrfied.\nSave  NEC  data  file  (*.nec)  V; 
if  (saveAlert) 

createExitDiaiog(topLevel,  ‘Warning*',  msg); 
else  { 

P  Save  current  ‘.mom  into  inrt  file  7 
savelnitEnvfnecln  putFilename) ; 

r  Disable  SRGP  7 
if  (IsphigsOff)  SRGP^end  0; 

XtCIoseOispiay  (XtDisplay  (topLevel)); 

«wt(0); 

) 

)  r  end  exitNeeds  7 

r . . . . / 

void  openSaveAsWtndow  0 

{ 

Widget  w, 

XmString  dirmask; 

Widget  list; 

extern  Widget  getTopShellQ; 
if  (saveFileSelectionDialog  =  NULL)  { 

saveFileSelectionDialog  =  createRleSelection Dialog  ("Save  As",  "•.nee"); 
XtAddCallback  (saveFileSelectionDialog,  XmNokCallback,  saveAsOkCB,  NULL); 
w  =  XmFileSelectionBoxGetChiid  (saveFileSelectionDialog,  XmDIALOG_TEXT); 
XmTextSetString  (w,  nednputFilename); 
XtVaSetValues(getTopShell(saveFileSelectionDialog), 

XmNmwmlnputMode,  MWM  INPUT  SYSTEM_MODAL,  NULL); 

) 

XtManageChild  (saveFileSelectionDialog); 

list  =  XmFileSelecticnBoxGetChild  (saveFileSelectionDialog, 

XmDIALOG_LIST); 

XmListDeselectAII  ltems(l  ist) ; 

dirmask  =  XmStringLtoRCreatep.nec",  XmSTRlNG_DEFAULT_CHARSET); 
XmFileSelectionDoSearch(saveFileSelectionDialog,  dinnask); 
XmSthngFree(dirmask); 

)  r  end  open  Save  As  Window  7 

r . . . 

*  Reads  the  NEEDS  input  data  from  a  file. 

7 

void  openReadlnputWindow  0 

{ 

XmString  dirmask; 

Widget  list; 

char  *msg  =  "Input  data  have  been  modified.\nSave  NEC  file  (*.nec)  T-, 
extern  void  createOpenSaveDiaiogO; 

if  (openFileSelectio n Dia log  =  NULL)  { 

openFileSelectionDialog  =  createFileSelectionDialog  ("Open",  —.nee"); 
XtAddCallback  (openFileSelectionDialog,  XmNokCallback,  readOkCB,  NULL); 

> 
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XtManag ©Child  (openFileSelectionDialog); 

list  -  XmFileSelectionBoxGetChildfopenFileSelectionDialog, 
XmDIALOGJJST); 

XmListDeselectAllltems(Jist); 

dirmask  s  XmStringLtoRCreatern®c",  XmSTRING_DEFAULT_CHARSET); 
XmFileSelectionDoSearch(openFileS©lectionDialog,  dirmask); 
XmStringFr©e(dirmask); 


if  (saveAIert)  { 

Cf«at©Op©nSaveDialog(topLev©l,  "Warning",  msg); 
saveAIert  =  False; 

> 

}  /*  end  openReadlnputWindow  */ 

/"""*" . . / 

void  savelnputToFile  0 

{ 

extern  void  momExportActionQ; 

if  (necInputFilename  =  NULL) 
openSaveAsWindow  0; 
else  { 

momExportAction(necinputFilename); 

} 

saveAIert  =  False; 

>  r  end  savelnputToFile  */ 


*  Save  the  inputFiiename  and  then  reads  the  NEEDS  input  data  into 

*  the  appropriate  data  structures. 

*/ 

static  void  readOkCB  (w,  clientData,  callData) 

Widget  w; 

XtPointer  clientData; 

XmFileSeiectionBoxCallbackStruct  "callData; 

{ 

Widget  dialog; 
char  "filename; 

extern  char  "necInputFilename; 
extern  char  "necOutputFilename; 
char  "tail,  newname  [80]; 
chartitle[80],  msg[80]; 
extern  void  readNecFileO; 
extern  Widget  createWorkingDialog  0; 
extern  Widget  editGeoShell,  editCtrlShell; 

if  ((filename  =  getFilename  (callData))  ==  NULL) 
return; 

if  (!strstr(filename,  ".nee"))  { 

sprintf(msg,  "Improper  NEC  file  extension  [%sf,  filename); 
createMessageDialog(topLevel,  “Warning",  msg,  XmDIALOGJWARNING); 
return; 

> 

closeAllO; 

dialog  =  createWorkingDialog  (w,  "Message", 

"Importing  files 
XtManageChild  (dialog); 
forceUpdate  (dialog); 
readNecFile(filename); 

XtDestioyWidget  (dialog); 

XtFree  (necInputFilename); 

necInputFilename  =  filename; 

sprintf(title,  "NEEDS  %s  -  [%s]",  VERSION,  filename); 

XtVaSetValues(topLevel,  XmNtitie,  title,  NULL); 

XtUnmanageChild  (openFileSelectionDialog); 

strepy  (newname,  filename); 
tail  =  strstr  (newname,  ".nec"); 
strepy  (tail,  ".out"); 

XtFree((char  *)necOutputFilename); 
necOutputFilename  =  XtMalloc(strlen(newname)  +  1); 
strepy  (necOutputFilename,  newname); 

clientData  =  NULL; 

)  r  end  readOkCB  */ 

. 

*  Saves  the  inputFiiename  and  then  saves  the  data  to  a  file  called 

*  "inputFiiename". 

V 

static  void  saveAsOkCB  (w,  clientData,  callData) 

Widget  w; 

XtPointer  clientData; 

XmFiieSelectionBoxCallbackStruct  "callData; 

{ 
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char  filename; 

extern  Widget  inputFilenameText 
char  titJe[80],  msg[SO]; 
char  fail; 

XEvent  event; 

Window  win  =  XtWindow(topLevel); 

XtAppContext  ext  =  XtWidgetToApplicationContext(w); 

extern  char  *exportFilename,  *nednputFilename,  *necOutputFilename; 

extern  void  momExportActionO; 

if  ((filename  =  getFilename  (callData))  =  NULL) 
return; 

if  (Istrstrffilename,  ".nee'*))  { 

XtUnmanageChild  (saveFileSelectionOialog); 
sprintf(msg,  Incorrect  NEC  file  extension  [%s]  T,  filename); 
createMessageDialog(toptevel,  "Warning",  msg,  XmDIALOG_WARNING); 
while  (True)  { 

XtAppNextEventfcxt,  &event); 

XtDispatchEvent(&  event) ; 

if  (eventxfocus.type  —  Focusln  &&  even txfocus. window  ==  win)  { 
XtManageChild  (saveFileSelectionOialog); 
break; 

> 

} 

return; 

> 

momExportAction(filename); 

XtFree  (necinputFilename); 

nednputFilename  =  filename; 

sprintf (title,  "NEEDS  %s  -  t%s]",  VERSION,  filename); 

XtVaSetValues(topLevel,  XmNtitle,  title,  NULL); 

XtUnmanageChild  (saveFileSelectionOialog); 
saveAlert  =  False; 

strcpyftitle,  filename); 
tail  =  strstr(titje,  ".nec"); 
strcpy(tail,  ".out"); 

XtFree(necOutputFilename); 
necOutputFilename  =  XtMalloc(strien  (title)  +  1); 
strcpy(necOutputFilename,  title); 

w  =  w \  r  Make  compiler  happy  V 
dientData  =  clientData; 

)  r  end  saveAsOkCB  */ 

r . . 

*  Opens  "inpirtFilename"  and  reads  NEEDS  input  data  from  it 
V 

int  read  In  putFrom  File  (filename) 
char  filename; 

{ 

RLE  fp; 
int  i; 

char  string  [132]; 

char  name  [132]; 

void  clearOldDataO; 

extern  void  createMessageDialog20; 

if  ((fp  =  efopen  (filename,  V*))  =  NULL) 
return  (0);  JT  return  0  for  failed  write  */ 

if  (fgetc(fp)  =  EOF)  {  r  empty  file  V 
char  msg[80]; 

r  dear  all  the  previous  data  read  from  the  previous  file  */ 
dearOldDataQ; 

sprintf(msg(  "Data  file  %s  is  empty",  filename); 

createMessageDialog2(topLevei,  "Warning",  msg.  XmDIALOG  WARNING,  NULL); 

fdose(fp); 

remove(filename); 

return  (1); 

> 

else 

rewind  (fp); 

P  Read  environment  dimension  &  frequency  unit  data  */ 
fscanf  (fp,  "Environment  %d\n",  &Envindex); 
fscanf  (fp,  "Dimension  %d\n“,  iDimlndex); 
fscanf  (fp,  "Freq  Unit  %d\n",  &Frequencytndex); 

r  Read  Comments  data  V 
fscanf  (fp,  "Comments  %d\n",  ACommentCount); 
if  (CommentCount)  { 
char  "token,  stnng[160]; 

XtFree((char  *)CM); 

CM  =  (stringType  *)XiMalloc(sizeof(stringType)  *  CommentCount); 
for  (i  =  0;  i  <  CommentCount;  *■••■)  { 
fgets  (string,  160,  fp); 
token  =  strtok(string,  fn1}; 
if  (token) 

strcpy(CM(i]  iine,  token); 

> 
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}e!s«{ 

XtFroe((char  *)CM); 

CM  =  NULL; 

} 

r  Road  Node  Coordinates  data  7 
fscanf  (fp,  “\nNodes  %d\n“,  &  NodeCount); 

/*  Allocate  X,  Y,  and  Z  arrays  7 
XtFree  ((char  *)X); 

X=  NULL; 

XtFree  ((char  *}  Y); 

Y  =  NULL; 

XtFree  ((char  *)Z); 

Z  =  NULL; 
if  (NodeCount)  { 

X  =  FloatMalloc  (NodeCount); 

Y  ~  FloatMalloc  (NodeCount); 

Z  =  FloatMalloc  (NodeCount); 

> 

for  (i  =  0;  i  <  NodeCount;  i++) 
fscanf  (fp,  "%f  %f  %ftn",  &X(i],  &Y[i),  &Z[i]); 

r  Read  in  Straight  Wires  data  7 

fscanf  (fp,  "Straight  Wires  %d\n",  &SWireCount); 

XtFree  ((char  *)  GW_ITG); 

GW_ITG  =  NULL; 

XtFree  ((char  *)  GW  END1); 

GW_END1  =  NULL; 

XtFree  ((char  *)  GW_END2); 

GW_END2  =  NULL; 

XtFree  ((char  *)  GW_NS); 

GW_NS  =  NULL; 

XtFree  ((char  *)  GW  RAD); 

GW_RAD  =  NULL; 
if  (SWireCount)  { 

GW  fTG  =  IntMalloc  (SWireCount); 

GWlENDI  =  IntMalloc  (SWireCount); 

GW  END2  =  IntMalloc  (SWireCount); 

GW  NS  =  IntMalloc  (SWireCount); 

GW  RAD  =  FloatMalloc  (SWireCount); 

> 

for  (i  =  0;  i  <  SWireCount  »++) 

fscanf  (fp,  "%d  %d  %d  %d  %ftn",  &GW  UG[i],  &GW  END1[i],  &GW_END2[i], 
&GW_NS[i],  &GW_RAD[i]); 

r  Read  in  Tapered  Wires  data  7 

fscanf  (fp,  "Tapered  Wires  %d\n",  &TaperWireCount); 

XtFree  ((char  *)GC  ITG); 

GCJTG  =  NULL; 

XtFree  ((char  *)  GC_END1); 

GC_END1  =  NULL; 

XtFree  ((char  *)GC  END2); 

GC_END2  =  NULL; 

XtFree  ((char  *)GC_NS); 

GC  NS  =  NULL; 

XtFree  ((char*)  GCJX); 

GC  IX  =  NULL; 

XtFree  ((char  *)  GC_RDEL); 

GC  RDEL  =  NULL; 

XtFree  ((char  *}  GC_RAD1); 

GC.RAD1  =  NULL; 

XtFree  ((char*)  GC_RAD2); 

GC  RAD2  =  NULL; 

XtFree  ((char  *)  GC  DELI); 

GC_DEL1  =  NULL; 

XtFree  ((char  *)  GC  DEL2); 

GC_DEL2  =  NULL; 
if  (TaperWireCount)  { 

GC_fTG  =  IntMalloc  (TaperWireCount); 

GC_END1  =  IntMalloc  (TaperWireCount); 

GCJEND2  =  IntMalloc  (TaperWireCount); 

GC_NS  =  IntMalloc  (TaperWireCount); 

GC_IX  =  IntMalloc  (TaperWireCount); 

GClRDEL  =  FloatMalloc  (TaperWireCount); 

GC  RADI  =  FloatMalloc  (TaperWireCount); 

GC~RAD2  =  FloatMalloc  (TaperWireCount); 

GC  DELI  =  FloatMalloc  (TaperWireCount); 

GC~DEL2  =  FloatMalloc  (TaperWireCount); 

> 

for  (i  =  0;  i  <  TaperWireCount;  i++) 

fscanf  (fp,  "%d  %d  %d  %d  %d  %f  %f  %f  %f  &GCJTG[i],  &GC_END1[i]. 
&GC_END2R.  &GC  NS(i).  &GC  !X[i],  &GC_RDEL[i],  &GC_RAD1[i], 
&GC..RAD2 [ij,  &GCJDEL1R,  &GCDEL2[i]); 

r  Read  in  Cantenary  Wires  data  7 

fscanf  (fp,  "Cantenary  Wires  %d\n",  ACWireCount); 

XtFree  ((char  *)CW  fTG); 

CW_ITG  =  NULL; 

XtFree  ((char  *)  CW.END1); 

CW_END1  =  NULL; 

XtFree  ((char  *)  CW_EN02); 
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CW_END2  =  NULL; 

XtFree  ((char  *)  CW_NS); 

CW_NS  =  NULL; 

XtFree  ((char  *)  CW  RAD); 

CW  RAD  =  NULL;  “ 

XtFree  ((char  •)  CW  ICAT); 

CW  ICAT  =  NULL;  ~ 

XtFree  ((char  *)  CW  RHM); 

CW  RHM  =  NULL; 

XtFree  ((char  *)  CW_ZM); 

CW  ZM  =  NULL; 
if  (CWireCount)  { 

CW  fTG  =  IntMalloc  (CWireCount); 

CW_£ND1  =  IntMalloc  (CWireCount); 

CW  END2  =  IntMalloc  (CWireCount); 

CW_NS  =  IntMalloc  (CWireCount); 

CW  RAD  =  FloatMalloc  (CWireCount); 

CW_ICAT  =  IntMalloc  (CWireCount); 

CWJRHM  =  FloatMalloc  (CWireCount); 

CW_ZM  =  FloatMalloc  (CWireCount); 

> 

for  0  =  0;  i  <  CWireCount;  i++) 

fscanf  (fp,  "%d  %d  %d  %d  %f  %d  %f  &CWJTG[iJ,  &CW_END1p], 

&CW  END2(i],  &CW_NS[i],  &CW_RAD[i],  &CW  ICAT[i].  &CW  RHMfl, 
&CWlZM[iD; 

r  Read  in  Wire  Arc  data  */ 

fscanf  (fp,  "Wire  Arc  %d\n“,  SWireArcCount); 

XtFree  ({char  *)GA  ITG); 

GA_ITG  =  NULL; 

XtFree  ((char  *)GA  NS); 

GA_NS  =  NULL; 

XtFree  ((char  *)GA  RADA); 

GA  RADA  =  NULL; 

XtFTee  ((char*)  GA_ANG1); 

GA_ANG1  =  NULL; 

XtFree  ((char  •)  GA_ANG2); 

GA_ANG2  =  NULL; 

XtFree  ((char  *)  GA  RAD); 

GA_RAD  =  NULL; 
if  (WireArcCount)  { 

GA_ITG  =  IntMalloc  (WireArcCount); 

GA  NS  =  IntMalloc  (WireArcCount); 

GA_RADA  =  FloatMalloc  (WireArcCount); 

GA_ANG1  =  FloatMalloc  (WireArcCount); 

GA_ANG2  *  FloatMalloc  (WireArcCount); 

GA  RAD  =  FloatMalloc  (WireArcCount); 

> 

for  (i  =  0;  i  <  WireArcCount;  i++) 

fscanf  (fp,  "%d  %d  %f  %f  %f  &GAJTG[I],  &GA_NS[i],  &GA_RADA[i], 
&GA_ANG1pJ,  &GA_ANG2[i),  &GA_RAD[iD; 

r  Read  in  Helix  &  Spiral  data  V 

fscanf  (fp,  "Helix/Spiral  %d\n",  &HelixOrSpiralCount); 

XtFree  ((char  *)  GH  FTG); 

GH_ITG  =  NULL; 

XtFree  ((char  *)  GH_NS); 

GH_NS  =  NULL; 

XtFree  ({char  *)  GH  TURNS); 

GH_TURNS  =  NULL; 

XtFree  ((char  •)  GH_ZLEN); 

GH_ZLEN  =  NULL; 

XtFree  ((char*)  GH_HR1); 

GH  HR1  =  NULL; 

XtFree  ((char  •)  GH  HR2); 

GHHR2  =  NULL; 

XtFree  ((char  *)  GH_WR1); 

GH_WR1  =  NULL; 

XtFree  ((char  *)  GH_WR2); 

GH_WR2  =  NULL; 

XtFree  ((char  *)  GH  ISPX); 

GHJSPX  =  NULL; 
if  (HelixOrSpiralCount)  { 

GHJTG  -  IntMalloc  (HelixOrSpiralCount); 

GH_NS  =  IntMalloc  (HelixOrSpiralCount); 

GHJTURNS  -  FloatMalloc  (HelixOrSpiralCount); 

GH_ZLEN  =  FloatMalloc  (HelixOrSpiralCount); 

GH_HR1  =  FloatMalloc  (HelixOrSpiralCount); 

GH  HR2  =  FloatMalloc  (HelixOrSpiralCount); 

GH_WR1  =  FloatMalloc  (HelixOrSpiralCount); 

GH_WR2  =  FloatMalloc  (HelixOrSpiralCount); 

GH  ISPX  =  FloatMalloc  (HelixOrSpiralCount); 

} 

for  (i  =  0;  i  <  HelixOrSpiralCount  i++) 
fscanf  (fp,  "%d  %d  %f  %f  %f  %f  %f  %f  %f\n“,  &GH_ITG[i], 

&GH_NS[i],  &GH  TURNS[i),  &GH  ZLENp],  4GH  HR1JT),  &GH_HR2[i], 
&GHWR1[i],  &GH_WR2fl,  &GHJSPX®; 

r  Read  in  Surface  Patch  data  "/ 

fscanf  (fp,  “Surface  Patch  %d\n“,  iSurfacePatchCcunt); 

XtFree  ((char  *)SP  NS); 

SP_NS  =  NULL; 

XtFree  ((char  *)  SP_Comer1); 
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SP_Comer1  =  NULL; 

Xtfree  {(char  *)  SP  Corned); 

SP  Comer2  =  NULL; 

Xtfree  ((char  *)  SP  Comer3); 

SP_Comer3  =  NUlI; 

Xtfree  {{char  *)  SP_Comer4); 

SP_Comer4  =  NULL; 
if  (Surface PatchCount)  { 

SP_NS  =  IntMalloc  (SurfacePatch Count); 

SP_Comer1  =  IntMalloc  (SurfacePatchCount); 

SP_Comer2  =  IntMalloc  (SurfacePatchCount); 

SP_Comer3  =  IntMalloc  (SurfacePatchCount); 

SP  Comer4  =  IntMalloc  (SurfacePatchCount); 

> 

for  (i  =  0;  i  <  SurfacePatchCount  i++) 
fscanf  (fp,  "%d  %d  %d  %d  %d\n",  &SP_NS[i], 

&SP_Comenii],  &SP_Comer2[i],  &SP_Comer3[i],  &SP_Comer4[i]); 

T  Read  in  Multiple  Patch  data  V 

fscanf  (fp,  "Multiple  Patch  %d\n“,  Multiple  PatchCount); 

XtFree  ((char  •)  SM_Comer1); 

SM  Comerl  =  NULL; 

Xtfree  ((char  *)  SM  Comer2); 

SM  Comer2  =  NULL; 

Xtfree  ((char  *)  SM  ComerS); 

SM_Comef3  =  NULL; 

Xtfree  ((char  *)  SM_Number12); 

SM_Number12  =  NULL; 

Xtfree  ((char  *)  SM  Number23); 

SM_Number23  =  NULL; 
if  (MultiplePatchCount)  { 

SM_Comer1  =  IntMalloc  (MultiplePatchCount); 

SM_Comer2  =  IntMalloc  (MultiplePatchCount); 

SM~Comer3  =  IntMalloc  (MultiplePatchCount); 

SM_Number12=  IntMalloc  (MultiplePatchCount); 

SM_Number23  =  IntMalloc  (MultiplePatchCount); 

> 

for  (i  =  0;  i  <  MultiplePatchCount;  H-+) 
fscanf  (fp,  -%d  %d  %d  %d  %d\n". 

&SM  Comerl  flj,  &SM_Comer2[i],  &SM_Comer3[0, 
&SM~Number12[i],  &SM_Number23[i]); 

r  Read  in  Transformations  data  V 

fscanf  (fp,  Transform  %d\n“,  &Transform Count); 

Xtfree  ((char  *)  GMJTGl); 

GM  TGI  =  NULL; 

Xtfree  ((char  •}  GM_NRPT); 

GM_NRPT  -  NULL; 

Xtfree  ((char  *)  GM_ROX); 

GM_ROX  =  NULL; 

Xtfree  ((char  *)  GM_ROY); 

GM_ROY  =  NULL; 

Xtfree  ((char  *)  GM  ROZ); 

GM  ROZ  =  NULL;  ~ 

Xtfree  ((char  *)  GM  XS); 

GM_XS  =  NULL; 

Xtfree  ((char  *)  GM_YS); 

GM_YS  =  NULL; 

Xtfree  ((char  *)  GM  ZS); 

GM_ZS  =  NULL; 
if  (TransformCount)  { 

GM_TGI  =  IntMalloc  (TransformCount); 

GM_NRPT  =  IntMalloc  (TransformCount); 

GM_ROX  =  FloatMalloc  (TransformCount); 

GM_ROY  =  FloatMalloc  (TransformCount); 

GM_ROZ  =  FloatMalloc  (TransformCount); 

GM_XS  =  FloatMalloc  (TransformCount); 

GM_YS  =  FloatMalloc  TransformCount); 

GM_ZS  =  FloatMalloc  TransformCount); 

} 

for  (i  =  0;  i  <  TransformCount;  i++) 
fscanf  (fp,  "%d  %d  %1  %f  %f  %f  %f  %f\nM, 

&GM  TGI[i],  &GM  NRPTfiJ,  &GM  ROXIiJ,  &GM_ROY[i],  &GM_ROZp], 
&GM_XSn,  &GM_YS(i],  &GM_ZSp]); 

r  Read  in  Rotation  data  V 

fscanf  (fp,  -Rotation  %d\n",  &RotationCount); 

Xtfree  ((char  *)GR  TGI); 

GR_TGI  =  NULL;  " 

Xtfree  ((char  *)  GR_NR); 

GR_NR  =  NULL; 
if  (RotationCount)  { 

GRJTGI  =  IntMalloc  (RotationCount); 

GR  NR  =  IntMalloc  (RotationCount); 

> 

for  (i  =  0;  i  <  RotationCount;  i++) 
fscanf  (fp,  "%d  %d\n“,  &GRJTGl[i],  &GR_J\IR[i]); 

r  Read  in  Reflection  data  */ 

fscanf  (fp,  "Reflection  %d\n",  SReflectionCount); 

Xtfree  ((char  •)  GXJTGQ; 

GX_TG1  =  NULL; 

Xtfree  ((char  *)  GX_1XYZ); 
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GXJXYZ  =  NULL; 
if  (ReflectionCount)  { 

GXJTGl  -  IntMalloc  (ReflectionCount); 

GX_IXYZ  =  IntMalloc  (ReflectionCount); 

> 

for  (i  =  0;  i  <  ReflectionCount;  i+-f) 
fscanf  (fp,  “%d  %d\n“,  &GXJTGI[i],  &GXJXYZ(i]); 

/*  Read  in  Frequency  data  V 

fscanf  (fp,  “Frequency  %d\n“  &FrequencyCount); 

XtFree  ((char  *)  FR  IFRQ); 

FR  IFRQ  =  NULL; 

XtFree  ((char  ")  FR  NFRQ); 

FR  NFRQ  =  NULL; 

XtFree  ((char-)  FR_FMHZ); 

FR_FMHZ  =  NULL; 

XtFree  ((char  *)  FR  DELFRQ); 

FR_DELFRQ  =  NULL; 
if  (FrequencyCount  >  0)  { 

FRJFRQ  =  IntMalloc  (FrequencyCount; 

FR_NFRQ  =  IntMalloc  (FrequencyCount); 

FR_FMK2  =  FloatMalloc  (FrequencyCount); 

FR_DELFRQ  =  RoatMalloc  (FrequencyCount); 
for  (i  =  0;  i  <  FrequencyCount  i++) 
fscanf  (fp,  “%d  %d  %f  &FRJFRQ[i],  &FR_NFRQfi], 
&FR_FMHZ[iJ,  &FR  DELFRQ[i]); 

>else{ 

FrequencyCount  =  1; 

FRJFRQ  -  IntMalloc  (FrequencyCount); 

FR_NFRQ  =  IntMalloc  (FrequencyCount); 

FR_FMHZ  =  FloatMalloc  (FrequencyCount); 

FR  DELFRQ  =  FloatMalloc  (FrequencyCount); 

FRJFRQ[0J  =  0; 

FR_NFRQ[0)  =  1; 

FR  FMKZ[0]  =  299.8; 

FR~DELFRQ(0]  =  0; 

> 

r  Read  in  Impedance  Loading  */ 
fscanf  (fp.  Toad  %d\n“,  SLoadsCount); 

XtFree  ((char*)  LD  LDTYP); 

LD_LDTYP  =  NULL; 

XtFree  ((char*)  LD_Tag); 

LD_Tag  =  NULL; 

XtFree  ((char*)  LD_Distance); 

LD_Di  stance  =  NULL; 

XtFree  ((char  *)  LD_Distance2); 

LD_Distance2  =  NULL; 

XtFree  ((char  *)  LD_ZLR); 

LD__ZLR  =  NULL; 

XtFree  ((char  *)  LD  ZU); 

LD_ZU  =  NULL; 

XtFree  ((char*)  LD  ZLC); 

LD_ZLC  =  NULL; 
if  (LoadsCount  >  0)  { 

LD_LDTYP  =  IntMalloc  (LoadsCount); 

LD_Tag  =  IntMalloc  (LoadsCount); 

LD_Distance  =  RoatMalloc  (LoadsCount); 

LD_Distance2  =  RoatMalloc  (LoadsCount); 

LD_ZLR  =  FloatMalloc  (LoadsCount); 

LDJZU  =  FloatMalloc  (LoadsCount); 

LD_ZLC  =  RoatMalloc  (LoadsCount); 

> 

for  (i  =  0;  i  <  LoadsCount;  i++) 

fscanf  (fp,  “%d  %d  %f  %f  %f  %f  %ftn“,  &LD_LD7YP[i],  &LD Jagp], 
&LD  Distance [i],  &LD  Distance2[i],  &LD_ZLR[i],  &LD_ZLI0J, 
&LD_ZLC[iD; 

r  Read  in  Vottage  Source  data  */ 

fscanf  (fp,  “Vottage  Sources  %d\n“,  &VoftageSourcesCount); 
XtFree  ((char*)  EX  Type); 

EX  Type  =  NULL; 

XtFree  ((char  *)  EX  Wire); 

EX.Wire  =  NULL; 

XtFree  ((char  *)  EX_Format); 

EX_Format  =  NULL; 

XtFree  ((char  *)  EX_Distance); 

EX_Dtstance  -  NULL; 

XtFree  ((char*)  EX_Magnitude); 

EX  Magnitude  =  NULL; 

XtFree  ((char  *)  EX_Phase); 

EX_Phase  =  NULL; 

XtFree  ((char  *)  EX_NormaI); 

EX_Normal  =  NULL; 
if  (VoltageSourcesCount  >  0)  { 

EX__Type  =  IntMalloc  (VoltageSourcesCount); 

EX_Wire  =  IntMalloc  (VoltageSourcesCount); 

EX_Format  =  IntMalloc  (VoltageSourcesCount); 

EX JD (Stance  =  RoatMalloc  (VoltageSourcesCount); 
EX_Magnitude  =  FloatMalloc  (VottageSourcesCount); 

EX_Phase  =  RoatMalloc  (VoltageSourcesCount); 

EX  Normal  =  RoatMalloc  (VoltageSourcesCount); 

} 
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for  (i  =  0;  i  <  VottageSources Count;  »-►-*-) 
fscanf  (fpt  *%d  %d  %d  %f  %f  %f  %!\n",  &EX_Type[i],  &EX_Wirefl, 

&EX_Format(i),  &EX_Distanc«[i],  &EX_Magnitude[i),  &EX_Phase{T], 
&EX_Normal[i]); 

r  Read  in  Incident  Plane  Wave  data  */ 

fscanf  {fp,  Incident  Plane  Wave  %d\n",  SlncidentPlaneWaveCount); 

XtF ree  ((char  *)  EX  TYPE); 

EX_TYPE  =  NULL;~ 

XtFree  ((char*)  EX  THETA  NUM); 

EX_THETA  NUM  x  NULL;  ~ 

XtFree  ((char  *)  EX_PHI  NUM); 

EX  PHI  NUM  =  NULL; 

XtFree  «char  *)  EX  THETA_L0); 

EX_THETA_LO  =  NULL; 

XtFree  ((char*)  EX  PHI  LO); 

EX_PHI_LO  =  NULL; 

XtFree  ((char  *)  EX_THETA_STEP); 

EX_TH  ET A_STEP  =  NULL; 

XtFree  ((char  *)  EX  PHI  STEP); 

EX  PHI  STEP  =  NULL; 

XtFree  «char  *)  EX_POL  ANGLE); 

EX  POL_ANGLE  =  NULL; 

XtFree  ((char  *)  EX_P0L_RAT10); 

EX  POL  RATIO  =  NULL” 

XtFree  ((char  *)  EXJNC_MAG); 

EX_INC_MAG  =  NULL; 
if  (IncidentPlaneWaveCount  >  0)  { 

EX  TYPE  =  IntMalloc  (IncidentPlaneWaveCount); 

EX~THETA  NUM  =  IntMalloc  (IncidentPlaneWaveCount; 

EX_PHI_NUM  =  IntMalloc  (IncidentPlaneWaveCount); 

EX_THETA_LO  =  FloatMalloc  (IncidentPlaneWaveCount; 

EX_PHi_LO  -  FloatMalloc  (IncidentPlaneWaveCount); 

EX_THETA_STEP  =  FloatMalloc  (IncidentPlaneWaveCount); 

EX_PHI_STEP  =  FloatMalloc  (IncidentPlaneWaveCount); 

EX_POL_ANG LE  s  FloatMalloc  (IncidentPlaneWaveCount; 

EX~POL_RATIO  =  FloatMalloc  OncidentPlaneWaveCount); 

EXJNC  MAG  =  FloatMalloc  (IncidentPlaneWaveCount; 

> 

for  0  =  0;  i  <  IncidentPlaneWaveCount;  i++) 
fscanf  (fp,  "%d  %d  %d  %f  %f  %f  %f  %f  %f  &EX_TYPE[i). 

&EX_THETA  NUM[i],  &EX  PHI_NUM[i],  &EX  THETA_LO(i],  &EX_PHI_LO[i], 
&EX_THETAlsTEPIi],  &EX>HI  STEP[i],  &EX_POL_ANGLE[i], 
&EX_POL_RAT10[i],  &EXJNC_MAG[i]); 

r  Read  in  Transmission  Line  data  */ 

fscanf  (fp.  "Transmission  Lines  %d\n“,  ATransmissionLinesCount); 

XtFree  ((char  *)  TL  Wirel); 

TL.Wirel  =  NULL;” 

XtFree  ((char  *)  TL_Wire2); 

TL_Wire2  =  NULL; 

XtFree  ((char  *)  TL_Distance1); 

TL_Distance1  =  NULL; 

XtFree  ((char  *)  TL  Distance2); 

TL_Distance2  =  NULL; 

XtFree  ((char  *)TL  ZC); 

TL  ZC  =  NULL; 

XtFree  ((char  *)  TL  TLEN); 

Tl_TLEN  =  NULL; 

XtFree  ((char  *)  TL  Y1R); 

TL_Y1R  =  NULL;  ~ 

XtFree  ((char  *)TL_Y1l); 

TL  Y1 1  =  NULL; 

XtFree  ((char  *)  TL_Y2R); 

TL_Y2R  =  NULL; 

XtFree  ((char  *)TL_Y2I); 

TL„Y2I  =  NULL; 

if  (TransmissionLinesCount  >  0)  { 

TL_Wire1  =  IntMalloc  (TransmissionLinesCount); 

TL_Wire2  =  IntMalloc  (TransmissionLinesCount); 

TL_Distance1  =  FloatMalloc  (TransmissionLinesCount); 

TL_Distance2  =  FloatMalloc  (TransmissionLinesCount); 

TL_ZC  =  FloatMalloc  (TransmissionLinesCount); 

TL_TLEN  =  FloatMalloc  (TransmissionLinesCount); 

TL_Y1R  =  FloatMalloc  (TransmissionLinesCount); 

TL_Y1I  =  FloatMalloc  (TransmissionLinesCount); 

TL_Y2R  =  FloatMalloc  (TransmissionLinesCount); 

TL  Y2I  =  FloatMalloc  (TransmissionLinesCount); 

> 

for  (i  =  0;  i  <  TransmissionLinesCount;  H-+) 
fscanf  (fp,  "%d  %d  %f  %f  %f  %f  %f  %f  %f  %An*  &TL_Wire1  [i ],  &TL_Wire2[i], 
&TL_Distance1[i],  &TL_Distance2[i],  &TL_ZCp),  &TL_TLEN[i], 

&TL_Y1R[i],  8.TL_Y1l[i],  &TL_Y2R(i],  &TL_Y2I(Q); 

r  Read  in  Two  Port  Networks  data  V 

fscanf  (fp,  "Two  Port  Nets  %d\n",  ATwoPortNetsCount); 

XtFree  ((char  *)  NT  Wirel); 

NT  Wirel  =  NULL; 

XtFree  ((char  *)  NT  Wire2); 

NT_Wire2  =  NULL; 

XtFree  ((char  *)  NT_Distance1); 

NT_Distance1  =  NULL; 

XtFree  ((char  *)  NT_Distance2); 
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NT_Distanc«2  =  NULL; 

XtFree  ({char  *)  NT  Y11R); 

NT_Y11R  =  NULL;' 

XtFree ((char*) NT  Y11I); 

NT_Y11I  =  NULL; 

XtFree  ((char  *)  NT  Y12R); 

NT  Y12R  =  NULL;' 

XtFree  ((char  *)  NT  Y12I); 

NT.Y12J  =  NULL; 

XtFre*  ((char  *)  NT_Y22R); 

NT  Y22R  =  NULL; 

XtFree  ((char  *)  NT  Y22J); 

NT_Y22J  =  NULL; 
if  (TwoPortNetsCount  >  0)  { 

NT_Wire1  =  IntMalloc  (TwoPortNetsCount); 

NT_Wire2  =  IntMalloc  (T woPortNetsCcunt); 

NT_Distance1  =  FIoatMalloc  (TwoPortNetsCount); 

NT_Dtstance2  =  FIoatMalloc  (TwoPortNetsCount); 

NT  Y11R  =  FIoatMalloc  (TwoPortNetsCount; 

NT~ Y11l  =  RoatMalloc  (TwoPortNetsCount); 

NT~Yt2R  =  FIoatMalloc  (TwoPortNetsCount); 

NT_Y12!  =  FIoatMalloc  (TwoPortNetsCount); 

NT_Y22R  =  FIoatMalloc  (TwoPortNetsCount; 

NT  Y22I  =  RoatMalloc  (TwoPortNetsCount); 

} 

for  (i  =  0;  i  <  TwoPortNetsCount;  H-+) 

fscanf  (fp,  “%d  %d  %f  %f  %f  %f  %f  %f  %f  %f\n",  &NT_Wire1  [ij,  &NT  Wire2[i], 
&NT_Distance1[ij,  &NT_Distance2fi],  &NT_Y11R [i],  &NT  Ylllfij, 
&NT~Y12R[i],  &NTY12l[i],  &NT_Y22R[ij,  &NT_Y22l[i]); 

r  Read  in  Insulated  Wire  data  */ 

fscanf  (fp,  Insulated  Wires  %d\n“,  SlnsulatedWiresCount); 

XtFree  ((char  *)  ISJ1); 

ISJ1  =  NULL; 

XtFree  ((char  *)  IS_ITAG); 

IS_ITAG  =  NULL; 

XtFree  ((char*)  IS_Distance1); 

IS.Distancel  =  NULL; 

XtFree  ((char  *)  IS  Distance2); 

IS  Otstance2  =  NULL; 

XtFree  ((char*)  IS_EPSR); 

IS_EPSR  =  NULL; 

XtFree  ((char  *)  IS_SIG); 

IS_SIG  =  NULL; 

XtFree  ((char  *)  IS_RADI); 

IS_RADI  =  NULL; 
if  (InsulatedWiresCount  >  0)  { 

ISJ1  =  IntMalloc  (InsulatedWiresCount); 

IS_fTAG  =  IntMalloc  (InsulatedWiresCount); 

ISJDistancel  =  FIoatMalloc  (InsulatedWiresCount); 
lSJDistance2  =  FIoatMalloc  (InsulatedWiresCount); 

IS_EPSR  ~  FIoatMalloc  (InsulatedWiresCount); 

IS_SIG  =  FIoatMalloc  (InsulatedWiresCount); 

IS_RAOI  =  FIoatMalloc  (InsulatedWiresCount); 

> 

for  (i  =  0;  i  <  InsulatedWiresCount  i++) 
fscanf  (fp,  "%d  %d  %f  %f  %f  %f  %f\n",  &IS  II  [i],  &IS  rTAGp], 
&IS_Distance1[i],  &IS  Distance2[i],  &!S_EPSR[i],  &IS_SIG[i], 

AIS.RADIR); 

fscanf  (fp,  "Ground  Parameters  %d\n“,  &GroundParamCount); 

XtFree  ((char*)  GNJPERF); 

GNJPERF  =  NULL; 

XtFree  ((char  *)  GN_NRADL); 

GN  NRADL  =  NULL; 

XtFree  ((char  *)GN  EPSR); 

GN_EPSR  =  NULL' 

XtFree  ((char  *)  GN  SIG); 

GN_SIG  =  NULL; 

XtFree  ((char  *)  GN_F3); 

GN_F3  =  NULL; 

XtFree  ((char  *)GN  F4); 

GN  F4  =  NULL; 

XtFVee  ((char  *)  GN  F5); 

GN_F5  =  NULL; 

XtFree  ((char  *)GN_F6); 

GN_F6  =  NULL; 
if  (GroundParamCount  >  0)  { 

GNJPERF  =  IntMalloc  (GroundParamCount); 

GN_NRADL  =  IntMalloc  (GroundParamCount); 

GN_EPSR  =  RoatMalloc  (GroundParamCount); 

GN_SK3  =  RoatMalloc  (GroundParamCount); 

GN_F3  =  RoatMalloc  (GroundParamCount); 

GN_F4  =  FIoatMalloc  (GroundParamCount); 

GN_F5  =  RoatMalloc  (GroundParamCount); 

GN_F6  =  FIoatMalloc  (GroundParamCount); 

} 

for  (i  =  0;  i  <  GroundParamCount  i++)  { 
intj  =  0; 


fgets  (string,  131,  fp); 

j  =  sscanf  (string.  "%d  %d  %f  %f  %f  %f  %f  %f  %s\n*\ 
&GNJPERF[i],  &GN_NRADL[i],  &GN_EPSR[i],  &GN_SIG[i], 
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&GN  F3[i],  &GN_F4[i],  &GN  F5[i],  &GN  F6[i],  name); 
if  G  =  9)  { 

GN_Filename  =  (char  *)  XtMalloc  (strlen  (name)  +1); 
strcpy  (GN_Filename,  name); 

>etse 

GN  Filename  =  NULL; 

> 

r  Read  in  Additional  Ground  Parameters  data  V 

fscanf  (fp,  "Addition  Ground  Parameters  %d\n",  &AddGroundParamCount); 
XtFree  {{char  *)  GD  ICLIF); 

GD  ICUF  =  NULL; "" 

XtF?ee  ((char  *)  GO  EPSR2); 

GD  EPSR2  =  NULL; 

XtFree  ((char  *)GD_SIG2); 

GD  SJG2  s  NULL; 

XtFree  ((char  *)GD_CLT); 

GD  CLT  a  NULL; 

XtFree  ({char  *)GD  CHT); 

GD_CHT  =  NULL;  “ 
if  (AddGroundParamCount  >  0)  { 

GDJCL1F  =  IntMalloc  (AddGroundParamCount); 

GD_EPSR2  =  FloatMalloc  (AddGroundParamCount; 

GD_SIG2  =  FloatMalloc  (AddGroundParamCount; 

GD_CLT  =  FloatMalloc  (AddGroundParamCount); 

GD_CHT  =  FloatMalloc  (AddGroundParamCount); 

} 

for  (i  =  0;  i  <  AddGroundParamCount;  i++) 

fscanf  (fp,  "%d  %f  %f  %f  &GD  ICLIFfi],  &GD_EPSR2p),  &GD  SlG2[i], 
&GD_CLT[i],  &GD_CHTpD; 

r  Read  in  Udpper-Medium  Parameters  data  */ 

fscanf  (fp,  "Upper-Medium  Parameters  %d\n“,  &UpperMediumParamCount); 
XtFree  {(char  *)  UM_EPSR); 

UM_EPSR  =  NULL; 

XtFree  {(char  •)  UM  SIG); 

UM_SIG  =  NULL; 

if  (UpperMediumParamCount  >  0)  { 

UM_EPSR  =  FloatMalloc  (UpperMediumParamCount); 

UM  SIG  =  FloatMalloc  (UpperMediumParamCount); 

> 

for  (i  =  0;  i  <  UpperMediumParamCount;  H-+) 
fscanf  (fp,  "%f  %f\n",  &UM_EPSR[i],  &UM_SIG[i]); 

r  Read  in  Maximum  Coupling  Calculation  data  7 
fscanf  (fp.  "Max  Coupling  %d\n",  &MaxCouplingCount); 

XtFree  ((char  *)  CPJTAG1); 

CP_TAG1  =  NULL; 

XtFree  ((char  *)  CP_TAG2); 

CP_TAG2  =  NULL; 

XtFree  ((char*)  CP_Distance1); 

CP_Distance1  =  NULL; 

XtFree  ((char  *)  CP_Distance2); 

CP_Dtstance2  =  NULL; 
if  (MaxCouplingCount  >  0)  { 

CP_TAG1  =  IntMalloc  (MaxCouplingCount); 

CP_TAG2  =  IntMalloc  (MaxCouplingCount); 

CP_Di stan cel  =  FloatMalloc  (MaxCouplingCount); 

CP_Distance2  =  FloatMalloc  (MaxCouplingCount); 

> 

for  (i  =  0;  i  <  MaxCouplingCount;  r++) 

fscanf  (fp,  "%d  %d  %f  %ftn",  &CP_TAG1[i],  &CP_TAG2(i],  &CP_Distance1[i], 
&CP_Distance2[i]); 

r  Read  in  Near  Bectric  Field  data  7 

fscanf  (fp,  "Near  Electric  Field  %d\n",  &NearElectricCount); 

XtFree  ((char  *)  NE_NEAR); 

NE_NEAR  =  NULL; 

XtFree  ((char*)  NE_NRX); 

NE_NRX  =  NULL; 

XtFree  ((char  *)  NE_NRY); 

NE  NRY  =  NULL;  ” 

XtFree  ((char  *)  NE_NRZ); 

NE_NRZ  =  NULL; 

XtFree  ((char  *)  NE  XNR); 

NE_XNR  =  NULL;  ~ 

XtFree  ((char  *)  NE_YNR); 

NE_YNR  =  NULL;  ” 

XtFree  ((char*)  NE_ZNR); 

NE_ZNR  =  NULL; 

XtFree  ((char  *)  NE.DXNR); 

NE_DXNR  =  NULL; 

XtFree  ((char  *)  NE_DYNR); 

NE  DYNR  =  NULL; 

XtFTee  ((char  *)  NE_DZNR); 

NE_DZNR  =  NULL; 
if  (NearElectricCount  >  0)  { 

NE  NEAR  =  IntMalloc  (NearElectricCount); 

NE  NRX  =  IntMalloc  (NearElectricCount); 

NE_NRY  =  IntMalloc  (NearElectricCount); 

NE_NRZ  =  IntMalloc  (NearElectricCount); 

NE  XNR  =  FloatMalloc  (NearElectricCount); 

NE~YNR  =  FloatMalloc  (NearElectricCount); 
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NE  ZNR  -  FloatMalloc  (NearElectncCount); 

NElDXNR  =  FloatMalloc  (NearElectncCount); 

NE  DYNR  =  FloatMalloc  (NearElectncCount); 

NEiDZNR  =  FloatMalloc  (NearElectncCount); 

} 

for  (i  =  0; » <  NearElectncCount;  t++) 
fscanf  (fp,  “%d  %d  %d  %d  %f  %f  %f  %f  %f  %An", 

&NE_NEAR[i],  &NE  NRX[i],  &NE  NRYp],  &NE  NRZ[i],  &NE_XNR[i], 
&NE_YNR[i],  &NE_ZNR[iJ,  &NE_DXNR(i],  &NE_DYNR[i],  &NE_DZNR[il); 

r  Read  in  Near  Magnetic  Field  data  */ 

fscanf  (fp,  “Near  Magnetic  Field  %d\n",  &NearMagneticCount); 

XtFree  ((char  *)  NH_NEAR); 

NH_NEAR  =  NULL; 

XtFree  ((char  •)  NH  NRX); 

NH  NRX  =  NULL; 

XtFree  ((char  *)  NH  NRY); 

NH  NRY  =  NULL; 

XtFree  ((char  *)  NH_NR2); 

NH  NRZ  =  NULL; 

XtFree  ((char  *)  NH  XNR); 

NH_XNR  =  NULL;  “ 

XtFree  ((char  *)  NH  YNR); 

NH  YNR  =  NULL; 

XtFree  ((char  *)  NH  ZNR); 

NH  ZNR  =  NULL; 

XtFree  ((char  *)  NH  DXNR); 

NH_DXNR  =  NULL; 

XtFree  ((char  *)  NH  DYNR); 

NH_DYNR  =  NULL; 

XtFree  ((char*)  NH.DZNR); 

NH_DZNR  =  NULL; 
if  (NearMagneticCount  >  0)  { 

NH_NEAR  =  IntMalloc  (NearMagneticCount); 

NH  NRX  =  IntMalloc  (NearMagneticCount); 

NH^NRY  =  IntMalloc  (NearMagneticCount); 

NH_NRZ  =  IntMalloc  (NearMagneticCount); 

NH  XNR  =  FloatMalloc  (NearMagneticCount); 

NH~YNR  =  FloatMalloc  (NearMagneticCount); 

NH  ZNR  =  FloatMalloc  (NearMagneticCount; 

NH~DXNR  =  FloatMalloc  (NearMagneticCount); 

NH_DYNR  =  FloatMalloc  (NearMagneticCount); 

NH_DZNR  =  FloatMalloc  (NearMagneticCount); 

> 

for  (i  =  0;  i  <  NearMagneticCount;  i++) 
fscanf  (fp,  “%d  %d  %d  %d  %f  %f  %f  %f  %f  %f\n“, 

&NH  NEAR[i],  &NH_NRX[i],  &NH_NRY[i],  &NH_NRZ[i],  &NH_XNR[i], 
&NH_YNR(i3,  &NH_ZNR[i],  &NH_DXNR[i],  &NH_DYNR[i],  &NH_DZNRfi]); 

T  Read  in  Radiation  Pattern  data  */ 

fscanf  (fp,  “Radiation  Pattern  %d\n“,  &RadiationPattemCount); 

XtFree  ((char  *)  RPJ1); 

RPJ1  =  NULL; 

XtFree  ((char  *)  RP_NTH); 

RP_NTH  =  NULL; 

XtFree  ((char  *)  RP  NPH); 

RP_NPH  =  NULL; 

XtFree  ((char  *)  RP_XNDA); 

RP  XNDA  =  NULL; 

XtFTee  ({char  *)  RP  THETS); 

RP_THETS  =  NULL; 

XtFree  ((char  *)  RP  PHIS); 

RP  PHIS  =  NULL; 

XtFree  ((char  *)  RP  DTH); 

RP_DTH  =  NULL; 

XtFree  {(char  *)  RP_DPH); 

RP  DPH  =  NULL; 

XtFree  ((char  *)  RP  RFLD); 

RP_RFLD  =  NULL; 

XtFree  ((char*)  RPJ3NOR); 

RPJBNOR  =  NULL; 
if  (RadiationPattemCount  >  0)  { 

RPJ1  =  IntMalloc  (RadiationPattemCount); 

RP_NTH  =  IntMalloc  (RadiationPattemCount); 

RPJvIPH  =  IntMalloc  (RadiationPattemCount); 

RP_XNDA  =  IntMalloc  (RadiationPattemCount); 

RP_THETS  -  FloatMalloc  (RadiationPattemCount); 

RP_PHIS  =  FloatMalloc  (RadiationPattemCount); 

RP_DTH  =  FloatMalloc  (RadiationPattemCount); 

RP_DPH  =  FloatMalloc  (RadiationPattemCount); 

RP_RFLD  =  FloatMalloc  (RadiationPattemCount); 

RP_GNOR  =  FloatMalloc  (RadiationPattemCount); 

} 

for  (i  =  0;  i  <  RadiationPattemCount  H-+) 
fscanf  (fp,  "%d  %d  %d  %d  %f  %f  %f  %f  %f 

&RP_l1[i],  &RP  NTHfl],  &RP  NPHfi],  &RP  XNDA[i],  &RP_THETS(i3, 

&RP  PHISfi],  &RP_DTH[i],  &RP_DPH(i],  &RP_RFLD[i],  &RP  GNORIQ); 


fscanf  (fp,  "Print  Options  for  Charge  %d\n",  &PrintChargeCount); 
XtFree  ((char  *)  PQJPTFLQ); 

PQJPTFLQ  =  NULL; 

XtFree  ((char  *)  PQJPTAQ); 
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PQJFTAQ  =  NULL; 

XtFree  ((char  “}  PQ_Distance1); 

PQJDistancel  =  NULL; 

XtFre©  ((char  *)  PQ_Distanco2); 

PQ_Distance2  =  NULL; 
it  (PrintChargeCount  >  0)  { 

PQJPTFLQ  =  IntMalloc  (PrintChargeCount); 

PQJPTAQ  =  IntMalloc  (PrintChargeCount); 

PQ_Distanc©1  =  FloatMalloc  (PrintChargeCount); 

PQ  Distance2  =  FloatMalloc  (PrintChargeCount); 

} 

I*  Read  in  Print  Options  data  V 
for  0  =  0;  i  <  PrintChargeCount;  i++) 
fscanf  (fp,  "%d  %d  %f  %f\n",  &PQ_IPTFLQ(i],  &PQJPTAQ[i], 
&PQ_Distance1[i],  &PQ_Distance2(i]); 

fscanf  (fp,  “Print  Electrical  Lengths  %d\n“,  &PrintLengthCount); 
XtFree  ((char  *)  PS  FLG); 

PS_FLG  =  NULL; 
if  (PnntLength Count  >  0) 

PS_FLG  =  IntMalloc  (PrintLengthCount); 
for  (i  =  0;  i  <  PrintLengthCount;  i++) 
fscanf  (fp,  *%d\n",  &PS_FLG[iD; 

fscanf  (fp,  "Print  Options  for  Current  %d\n",  &PrintCurrentCount); 
XtFree  ((char*)  PT  IPTFLQ); 

PTJPTFLQ  =  NULL; 

XtFree  ({char  *)  PTJPTAQ); 

PTJPTAQ  =  NULL; 

XtFree  ((char  *)  PT_Distance1); 

PT_Distance1  =  NULL; 

XtFree  ((char  *)  PT_Distance2); 

PTJDistance2  =  NULL; 
if  (PrintCurrentCount  >  0)  { 

PTJPTFLQ  =  IntMalloc  (PrintCurrentCount); 

PTJPTAQ  =  IntMalloc  (PrintCurrentCount); 

PTJDistancel  =  FloatMalloc  (PrintCurrentCount); 

FT_Distance2  =  FloatMalloc  (PrintCurrentCount); 

> 

for  (i  a  0;  i  <  PrintCurrentCount;  i++) 
fscanf  (fp,  "%d  %d  %f  &PT_IPTFLQ[i],  &PTJPTAQ[i], 
&PT_Oistance1(i]p  &PTJDistance2[i]); 

fscanf  (fp,  "Execute  %d\n",  &ExecuteCount); 

fclose  (fp); 

return  (1);  /*  return  1  for  successful  write  */ 


*  Opens  "inputFilename"  and  writes  NEEDS  input  data  out  to  it 

*/ 

int  writelnputToFile  (filename) 
char  "filename; 

{ 

FILE  *fp; 
int  i; 

if  ((fp  =  efopen  (filename,  "w"))  ==  NULL) 
return  (0);  r  return  0  for  failed  write  */ 

r  Write  out  environment  dimension  &  frequency  unit  data  7 
fprirrtf  (fp,  "Environment  %d\n",  Envlndex); 
fprintf  (fp,  "Dimension  %d\n",  Dimlndex); 
fprintf  (fp,  "Freq  Unit  %d\n“,  Frequencylndex); 

r  Write  out  Comments  data  V 
fprintf  (fp,  "Comments  %d\n",  CommentCount); 
if  (CommentCount)  { 
for  0  =  0;  i  <  CommentCount;  i++)  { 
fprintf(fp,  "%s\n",  CM[i].line); 

> 

} 

r  Write  out  Node  Coordinates  data  7 
fprintf  (fp,  "\nNodes  %d\n",  NodeCount); 

T  Read  data  into  arrays  7 
for  (i  =  0;  i  <  NodeCount  i++) 
fprintf  (fp,  “%g  %g  %g\n",  Xfl.  YI I),  ZpD; 

r  Write  out  Straight  Wires  data  7 

fprintf  (fp,  "Straight  Wires  %d\n",  SWireCount); 

for  (i  -  0;  i  <  SWireCount  i++) 

fprintf  (fp,  "%d  %d  %d  %d  %g\n",  GWJTG01,  GW_END1[i],  GW_END2[i], 
GW_NS(i],  GW_RAD(iD; 

r  Write  out  Tapered  Wires  data  7 

fprintf  (fp,  "Tapered  Wires  %d\n",  TaperWireCount); 

for  (i  =  0;  i  <  TaperWireCount  »♦+) 

fprintf  (fp,  "%d  %d  %d  %d  %d  %g  %g  %g  %g  %g\n“,  GC_rrG[i],  GC_END1[i], 
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GC_END2p],  GC_NS[i],  GCJXfl,  GC_RDEL[i],  GC_RAD1  p]. 
GC_RA02[i],  GC_DEL1  [i],  GC_DEL2(i]); 


r  Write  out  Cantenary  Wires  data  7 

fprintf  (fp,  "Cantenary  Wires  %d\n",  CWireCount); 

for  (i  =  0  ;  i  <  CWireCount;  i++) 

fprintf  (fp,  "%d  %d  %d  %d  %g  %d  %g  %g\n",  CWJTG(i],  CW_END1[i], 

CW_END2[i],  CW_NS[i],  CW_RA0[i],  CWJCATtO.  CW_RHM[i],  CW_ZM[i]); 

/*  Write  out  Wire  Arc  data  7 

fprintf  (fp,  “Wire  Arc  %d\n",  WireArcCount); 

for  (i  =  0;  i  <  WireArcCount;  i++) 

fprintf  (fp,  "%d  %d  %g  %g  %g  %g\n",  GAJTGp],  GA_NS(i],  GA_RADA[i], 
GA_ANG1[i],  GA_ANG2[i],  GA_RAD[i]); 

r  Write  out  Helix  &  Spiral  data  7 
fprintf  (fp,  "Helix/Spiral  %d\n",  HelixOrSpiraiCount); 
for  (i  =  0;  i  <  HelixOrSpiralCount  i++) 
fprintf  (fp,  “%d  %d  %g  %g  %g  %g  %g  %g  %g\n",  GH_lTG[i], 

GH  NS[i ],  GH  TURNSp],  GH  ZLENfi],  GH_HR1[i],  GHJHR2[i], 

GH_WR1  p],  GH_WR2(i],  GHJSPX[i]); 

r  Write  out  Surface  Patch  data  7 
fprintf  (fp,  "Surface  Patch  %d\n",  SurfacePatchCount); 
for  (i  =  0;  i  <  SurfacePatchCount;  i++) 
fprintf  (fp,  "%d  %d  %d  %d  %d\n",  SP_NS[i], 

SP_Comer1  [i],  SP_Comer2fi],  SP_Comer3{i],  SP_Comer4[i]); 

r  Write  out  Multiple  Patches  data  7 
fprintf  (fp,  "Multiple  Patch  %d\n",  MuftiplePatchCount); 
for  (i  =  0;  i  <  MuttiplePatchCount  i++) 
fprintf  (fp,  "%d  %d  %d  %d  %d\n", 

SM_Comer1(r].  SM_Comer2[i],  SM_Comer3[i], 

SM_Numben2[i],  SM_Number23[ijj; 

r  Write  out  Transformations  data  7 
fprintf  (fp,  Transform  %d\n",  TransformCount); 
for  (i  =  0;  i  <  TransformCount  i++) 
fprintf  (fp.  "%d  %d  %g  %g  %g  %g  %g  %g\n", 

GM_rTGI[t],  GM_NRPT[i],  GM_ROX{i],  GM_ROY[i],  GM_ROZ[i],  GM_XS[i], 
GM_YS[i].  GM_ZS{iD; 

r  Write  out  Rotations  data  7 
fprintf  (fp.  "Rotation  %d\n"  RotationCount); 
for  (i  =  0;  i  <  RotationCount  r++) 
fprintf  (fp,  "%d  %d\n“.  GR_fTGI[i],  GR_NR[i]); 

T  Write  out  Reflections  data7 
fprintf  (fp.  "Reflection  %d\n",  ReflectionCount); 
for  (i  =  0;  i  <  RefiectionCount  f++) 
fprintf  (fp.  "%d  %d\n“,  GX_FTGI[i],  GX_IXYZ[iD; 

t*  Write  out  Frequency  data  7 
fprintf  (fp,  "Frequency  %d\n".  FrequencyCount); 
for  (i  =  0;  i  <  FrequencyCount  i++) 
fprintf  (fp,  "%d  %d  %g  %g \n",  FRJFRQ[i],  FR_NFRQ[i],  FR  FMHZJi], 
FRJDELFRQfl); 

/*  Write  out  Impedance  Loading  data  7 
fprintf  (fp,  "Load  %d\n",  LoadsCount); 
for  0  -  0;  i  <  LoadsCount  i++) 

fprintf  (fp,  "%d  %d  %g  %g  %g  %g  %g\n",  LD_LDTYPp],  LD_Tag[i], 

LO_Distance[i],  LD_Distance2fi].  LD_ZLR(i],  LD_ZLI[i],  LD_ZLC(i]); 

r  Write  out  Voltage  Sources  data  7 
fprintf  (fp,  "Voltage  Sources  %d\n“,  VottageSourcesCount); 
for  (i  =  0;  i  <  VottageSourcesCount  i*+) 
fprintf  (fp,  "%d  %d  %d  %g  %g  %g  %g\n“,  EX_Type[i],  EXJ/Vireffl. 

EX_Formatfi],  EX_Distance{i],  EX_Magnitude[i],  EX_Phase[ij, 

EX_Normalp]); 

r  Write  out  Incident  Plane  Wave  data  7 

fprintf  (fp,  "Incident  Plane  Wave  %d\n“,  IncidentPlaneWaveCount); 
for  0  =  0;  i  <  IncidentPlaneWaveCount  H-+) 
fprintf  (fp,  "%d  %d  %d  %g  %g  %g  %g  %g  %g  %g\n",  EX_TYPE[i], 

EX_THETA_NUM[i],  EX_PHI_NUM[i],  EX_THETA_LO[i],  EX_PHI_LO[i], 

EX  THETA_STEP  [i],  EX  PHI_STEP[i],  EX  POL_ANGLE[i], 

EX_PO L_RATI O [i] ,  EXJNCMAGp]); 

r  Write  out  Transmission  Line  data  7 

fprintf  (fp,  Transmission  Lines  %d\n",  TransmissionUnesCount); 
for  (i  =  0;  i  <  TransmissionUnesCount  r++) 
fprintf  (fp,  "%d  %d  %g  %g  %g%g  %g  %g  %g  %g\n",  TL_Wire1[i],  TL_Wire2[i], 

TL  Distance1[i],  TL  Distance2(i],  TL_ZC|1],  TL_TLEN[i],  TL_Y1  R[i], 

TLlYI  l[i),  TL_Y2R[i]T  TL_Y2l[i]]; 

r  Write  out  Two  Port  Networks  data  7 

fprintf  (fp.  Two  Port  Nets  %d\n",  TwoPortNetsCount); 

for  (i  =  0;  i  <  TwoPortNetsCount  i++) 

fprintf  (fp,  "%d  %d  %g  %g  %g  %g  %g  %g  %g  %g\n",  NT_Wire1[i],  NTWire2[i], 
NT_Distance1[i],  NT  Distance2[ij,  NT_Y11R[i],  NT_Y11l[i], 

NT_Y12R[i],  NT_Y121[i].  NT  Y22R[i],  NT_Y22l[i]); 
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/*  Writ©  out  Insulated  Wires  data  7 
fprintf  (fp,  Insulated  Wires  %d\n“,  InsulatedWiresCount); 
for  (i  =  0;  i  <  InsulatedWiresCount  *►♦) 
fprintf  (fp,  "%d  %d  %g  %g  %g  %g  %g\n",  ISJ1  [i ],  IS_ITAG[i], 

IS_Distanc©1  [i],  IS  Distance2(i],  IS_EPSR[i],  IS_SIG[i], 

ERADlpD; 

r  Write  out  Ground  Parameter  data  7 
fprintf  (fp,  “Ground  Parameters  %d\n“,  GnoundParamCount); 
for  0  =  0;  i  <  GroundParamCount  i++) 
fprintf  (fp,  "%d  %d  %g  %g  %g  %g  %g  %g  %s\n", 

GN  IPERFfl.  GN.NRADLR,  GN_EPSR[iJ,  GN_SJG[i], 

GN~F3[i],  GN_F4[i],  GN_F5[i],  GN_F6[i],  GN_Fiiename); 

r  Write  out  Additional  Ground  Parameters  data  7 

fprintf  (fp,  "Addition  Ground  Parameters  %d\n",  AddGroundParamCount); 

for  (i  =  0;  i  <  AddGroundParamCount  »+♦) 

fprintf  (fp,  "%d  %g  %g  %g  %g\n",  GD  ICUF[i],  GD_EPSR2[i],  GD_SIG2[i], 
GD_CLTTi],  GD_CHTTiD; 

1*  Upper-Medium  Parameters  7 

fprintf  (fp,  "Upper-Medium  Parameters  %d\n",  UpperMediumParamCount); 
for  (i  =  0;  i  <  UpperMediumParamCount  i++) 
fprintf  (fp,  "%g  %g\n“,  UM_EPSR[i],  UM_SIGpD; 

r  Write  out  Maximum  Coupling  Calculation  data  7 
fprintf  (fp,  "Max  Coupling  %d\n",  MaxCouplingCount); 
for  (i  =  0  ;  i  <  MaxCouplingCount  i++) 

fprintf  (fp,  "%d  %d  %g  %g\n",  CP_TAG1[i],  CP_TAG2[i],  CP_Distance1{i], 
CP_Distance2[i]); 

r  Write  out  Near  Electric  Field  data  7 
fprintf  (fp,  "Near  Electric  Field  %d\n“,  NearElectricCount); 
for  (i  =  0;  i  <  NearElectricCount  i++) 
fprintf  (fp,  "%d  %d  %d  %d  %g  %g  %g  %g  %g  %g\n", 

NE  NEAR[i],  NE  NRX[i],  NE_NRY[i],  NE_NRZ[i]t  NE_XNR[i],  NE_YNR[i), 
NElZNR[i],  NE _DXNR(i],  NE_DYNR[i],  NE_DZNR[i]); 

r  Write  out  Near  Magnetic  Field  data  7 
fprintf  (fp,  "Near  Magnetic  Field  %d\n",  NearMagneticCount); 
for  ft  =  0;  i  <  NearMagneticCount  i++) 
fprintf  (fp,  "%d  %d  %d  %d  %g  %g  %g  %g  %g  %g\n", 

NH  NEARfi],  NH  NRX[i ],  NH  NRY[i],  NH_NRZ[i],  NH_XNR[i],  NH_YNR[i], 
NH_ZNR[iJ,  NH_DXNR[i],  NH_DYNR[i],  NH_DZNR[i]); 

T  Write  out  Radiation  Pattern  data  7 
fprintf  (fp,  "Radiation  Pattern  %d\n",  RadiationPattemCount); 
for  (i  “  0;  i  <  RadiationPattemCount  i++) 
fprintf  (fp,  **%d  %d  %d  %d  %g  %g  %g  %g  %g  %g\n", 

RP  lip],  RP  NTHR,  RP_NPH[i],  RP_XNDA[i],  RP_THETS[i], 

RP_PHlS[i],  RP_DTH[i],  RP_DPH[i],  RP_RFLD(iJ,  RPJSNORfl); 

r  Write  out  Print  Options  data  7 

fprintf  (fp,  "Print  Options  for  Charge  %d\n",  PrintChargeCount); 
for  (i  =  0;  i  <  PrintChargeCount  i++) 
fprintf  (fp,  "%d  %d  %g  %g\n", 

PQJPTFLQp],  PQJPTAQfij,  PQ_Distance1[i],  PQ_Distance2[i]); 
fprintf  (fp,  "Print  Electrical  Lengths  %d\n",  PrintLengthCount); 
for  (i  =  0;  i  <  PrintLengthCount  i++) 
fprintf  (fp,  "%d\n",  PS_FLG[i]); 

fprintf  (fp,  "Print  Options  for  Current  %d\n",  PrintCunentCount); 
for  (i  -  0:  i  <  PrintCurrentCount  i++) 
fprintf  (fp,  "%d  %d  %g  %g\n", 

PTJPTFLQ[i],  PTJPTAQfl,  PT_Distance1  [i],  PT_Distance2(i]); 
fprintf  (fp,  "Execute  %d\n“,  ExecuteCount); 
fdose  (fp); 

saveAlert  =  False;  /*  Reset  saveAlert  flag  7 
return  (1);  f  return  1  for  successful  write  7 


> 


*  Clears  out  old  data 
7 

void  clearOldOata  Q 

{ 

r  Gear  out  element  counts  for  all  data  arrays  7 
NodeCount  =  0; 

SWireCount  =  0; 

TaperWireCount  =  0; 

CWireCount  =  0; 

WireArcCount  =  0; 

HelixOrSpiralCount  =  0; 

SurfacePatchCount  =  0; 

MultiplePatchCount  =  0; 

Rotation  Count  =  0; 

ReflectionCount  =  0; 

TransformCount  -  0; 

FrequencyCount  =  1;  /*  Always  have  at  least  one  frequency!  7 
InsulatedWiresCount  =  0; 

LoadsCount  =  0; 
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UpperMediumParamCount  =  0; 

VoltageSourcesCount  =  0; 

IncidentPlaneWaveCount  =  0; 

TwoPortNets  Count  =  0; 

TransmissionUnesCount  =  0; 

MaxCouplingCount  =  0; 

AddGroundParamCount  =  0; 

NearQectricCount  =  0; 

NearMagneticCount  =  0; 

RadiationPattemCount  =  0; 

GroundParamCount  =  1; 

PrintChargeCount  =  0; 

PrintCurrentCount  =  0; 

PrintLength  Count  =  0; 

ExecuteCount  =  1 ; 

f*  Set  environment  dimension  &  frequency  unit  to  defaults  V 
Frequencyindex  =  MHZ; 

Env1ndex=  FREE_SPACE; 

Dimlnd  ex  =  METERS; 

r  Free  Comments  7 
XtFree  ((char  *)CM); 

CM  -  NULU 

r  Set  Frequency  to  defaults  */ 

FRJFRQ  =  IntMalloc  (FrequencyCount); 

FR~NFRQ  =  IntMalloc  (FrequencyCount); 

FR_FMHZ  =  FloatMalloc  (FrequencyCount); 

FR_DELFRQ  =  FloatMalloc  (FrequencyCount); 

FR_!FRQ[0]  =  0; 

FR_NFRQ[0]  =  1; 

FRiFMHZfO]  =  299.8; 

FR_DELFRQ(0]  =  0; 

!*  Set  Ground  Parameters  to  defaults  V 
GN  IPERF  =  IntMalloc  (GroundParamCount); 

GN_IP£RF[0]  =  .1; 

XtFree  (GN_Filename); 

GN_Filename  =  NULL; 

)  r  end  clearOldData  V 

/ . . - . . . V 

Boolean  searchFile (filename) 
char  “filename; 

{ 

Widget  w; 

char  *ext  mask{1CJ]; 

Xm String  dirmask,  file, 

XmStringTable  fileList 

Arg  args{10]; 

int  i,  fileCount  =  0,  n  =  0; 

if  (filename  =  NULL) 
return  FALSE; 

w  =  XmCreateFiieSelectonDialog(topLevel,  “file’*, 

NULL,  0); 

ext  =  strrchr(filename,  *.'); 
if  (ext  ==  NULL) 
return  FALSE; 
sprintf(mask,  -%sH,  ext); 

dirmask  -  XmStringLtoRCreate  (mask,  XmSTRING__DEFAULT_CHARS6T); 
XmRleSelectionDoSearch(w,  dirmask); 

XmStringFree  (dirmask); 

XtSetArg  (args  [n],  XmNfileListltems,  &fileList);  n++; 

XtSetArg  (args  [nj,  XmNfileListJtemCount,  SfileCount);  n++; 

XtGetValues  (w,  args,  n); 

file  =  XmStringLtoRCreate  (filename,  XmSTRING_DEFAULT_CHARSET); 
for  (i  =  0;  i  <  fileCount;  i++) 
if  (XmStringCompare  (file,  fileList  [i])) 
break; 

XmStringFree  (file); 

XtOestroyWidget(XtParent(w)); 
if  (i  <  fileCount) 
return  TRUE; 
else 

return  FALSE; 

>  r  end  searchFile  */ 

r . . . i 

void  newfileActionO 

{ 

extern  void  createNewSaveDialogO; 
char  titJe[60]; 

char  *msg  =  Input  data  have  been  modified.\nSave  NEC  file  (*.nec)  ?*; 

closeAllO; 
if  (saveAlert) 

createNewSaveDialog(topLevel,  "Warning",  msg); 
else{ 

dearOatalnputsQ; 
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sprintf(titJe,  "NEEDS  %s  -  [%s VERSION,  "New  File"): 
XtVaSetValues(topLevel,  XmNtitle,  title,  NULL); 

} 

}  P  end  newf  ileAction  7 


cFileMenu.h: 

include  “ctrlgeo.h" 

/• 

*  The  following  are  the  global  variables  for  the  NEEDS  data  set 
7 

extern  int  Envindex.  P  Environment  array  index  7 

Dimlndex,  P  Dimension  array  index  7 

Frequencylndex,  P  Frequency  array  index  7 
NodeCount,  P  Node  Coordinates  7 

SWireCount,  /*  Straight  Wires  7 

TaperWireCount.  /*  Tapered  Wires  7 
CWireCount,  /*  Catenary  Wires  */ 

WireArcCount  /*  Wire  Arcs  7 

HelixOrSpiralCount,  P  Helix  or  Spiral  Wires  */ 
SurfacePatchCount,  P  Surface  Patches  */ 
MuitiplePatchCount,  P  Multiple  Patch  Surface  7 
RotationCount,  r  Rotation  7 

ReflectionCount,  /*  Reflections  V 

Transform  Count,  P  Transformations  7 
FrequencyCount,  P  Frequencies  7 
InsulatedWiresCount,  T  Insulated  Wires  7 
LoadsCount,  r  Impedance  Loads  V 

UpperMediumParamCount  P  Upper-Medium  Parameters  I 
VoltageSourcesCount,  P  Voltage  Sources  */ 
IncidentPlaneWaveCount  P  Incident  Plane  Waves  7 
TwoPortNetsCount,  r  2-port  non-radiating  networks  */ 
TransmissionLinesCount,  /*  Transmission  Lines  I 
MaxCouplingCount,  P  Maximum  Coupling  Calculation  I 
AddGroundParamCount,  P  Additional  Ground  Parameters  / 
NearElectricCount  P  Near  Electric  Field  7 
NearMagneticCount,  P  Near  Magnetic  Reid  7 
RadiationPattemCount,  P  Radiation  Pattern  7 
GroundParamCount  P  Ground  Parameters  7 
PrintChargeCount  /*  Print  Option  for  Charge  7 
PrintCurrentCount  P  Print  Option  for  Current  7 
PrintLengthCount,  P  Print  Length  of  Segments  7 
ExecuteCount, 

CommentCount;  P  lines  of  comments  7 

r  Comments  data  7 
extern  stringType  *CM; 

P  Node  Coordinates  data  7 

extern  float  "X,  /*  x  coordinate  7 

*Y  P  y  coordinate  7 

*Z;  /*  z  coordinate  7 

P  added  by  russell  I  6/15/95  7 
/•  Diagnostic  error  and  warning  definitions  7 
#define  SegLen2WaveLenWaming  (1lu«0) 

#define  SegLen2RadiusWaming  (1lu«1) 

#define  Radius2WaveLenWaming  (1  lu  «  2) 

#define  JunctionSegLenRatioWaming  (1  lu  «  3) 

#define  JunctionRadiusRatioWaming  (llu  «  4) 

#define  SegLen2WaveLenError  (1  lu  «  5) 

#define  SegLen2RadiusError  (1  lu  «  6) 

#define  Rad ius2WaveLen Error  (1  lu  «  7) 

#define  CoincidentWireEnor  (1  lu  «  8) 

#define  JunctionSegLenRatioError  (1  lu  <,c  9) 

#define  Junction  Rad  iusRatioErTor  (1  lu  «  1 0) 

#define  JunctionMatchPointEnor  (llu  <<  11) 

#define  CrossedWireError  (1  lu  «  12) 

#define  InvalidSheathRadiusError  (1  lu  «  1 3) 

P  Global  variable  for  indicating  the  errors  and  warnings  of  wires  / 
extern  unsigned  long  *wireErrors; 

P  Straight  Wires  data  7 

extern  int  *GW_JTG, 

*GW  END1, 

*GW_END2, 

•GW_NS; 

extern  float  *GW_RAD 

P  Tapered  Wires  data  7 

extern  int  *GCJTG,  r  tag  of  wire  7 

*GC  END1 ,  P  node  of  end  1  7 

«GC~ END2,  P  node  of  end  2  7 

•GC~ NS,  P  number  of  segments  7 

*GC~ IX;  P  type  of  taper  7 


P  tag  of  wire  7 
P  node  of  end  1  7 
P  node  of  end  2  7 
p  number  of  segments  7 
P  radius  7 
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extern  float  *GC_RDELP 
*GC  RADI, 

•GC  RAD2, 
*GC_DEL1 , 
*GC_DEL2; 

r  Catenary  Wire*  data  7 

extern  int  *CW  rTG, 
•cw  END1, 
*CW  END2, 
•CW  ICAT, 
*CW"NS; 

extern  float  *CW_RAD, 
•CW  RHM, 
*CW_ZM; 

/•Wire  Arc  data*/ 

extern  int  *GA_fTG, 
*GA_NS; 

extern  float  *GA  RADA, 
•GA_ANG1, 
*GA_ANG2, 
•GA_RAD; 

P  Helix  or  Spiral  data  7 

extern  int  *GH  ITG, 
*GH_NS; 

extern  float  *GH_TURNS, 
•GH_ZLEN, 

•GH  HR1, 
•GH_HR2, 

•GH  WR1, 
*GH_WR2, 
•GHJSPX; 

/*  Multiple  Patches  data  7 

extern  int  *SM_Comer1, 
*SM_Comer2, 
•SM_Comer3, 
*SM_Number12l 
*SM_Number23; 

r  Surface  Patches  data  7 


T  ratio  of  segment  lengths  7 
/*  radius  of  1st  segment  7 
/*  radius  of  2nd  segment  7 
r  length  of  1  st  segment  7 
r  length  of  2nd  segment  7 


/•tag  of  wire*/ 
r  node  of  end  1  7 
/•  node  of  end  2  7 
r  type  of  catenary  7 
/*  number  of  segments  7 
T  radius  7 
/•  distance  7 
r  height  7 


/•  tag  7 

/*  number  of  segments  7 
r  Arc  radius  7 
/•  angle  of  1st  end  7 
/•  angle  of  2nd  end  7 
/*  Wire  Radius  7 


/•tag  7 

/*  number  of  segments  7 

T  number  of  turns  in  spiral  7 
T  length  of  spiral  of  heliz  along  z-axis  7 
r  radius  of  spiral  at  starting  end  7 
r  radius  of  sprial  at  final  end  7 
/•  radius  of  wire  at  starting  end  7 
r  radius  of  wire  at  final  end  7 
r  O=log  spiral,  1=  Archimedes  spiral  7 


/•  Node  of  comerl  of  quadrangle  7 
1*  Node  of  comer2  of  quadrangle  7 
r  Node  of  comer3  of  quadrangle  7 
T  Number  of  patches  from  1  to  2  7 
r  Number  of  patches  from  2  to  3  7 


extern  int  *SP_NS, 
•SP_Comer1 , 
*SP  Comer2, 
•SP  Comer3, 
•SP_Comer4; 

r  Rotations  7 

extern  int  •GR_ITGI, 
*GR_NR; 

/*  Reflections  7 

extern  int  *GX  fTGI, 
*GX_IXYZ; 

/*  Transformations  7 


r  Patch  type  7 

/*  Node  of  comerl  of  quadrangle  7 
!*  Node  of  comer2  of  quadrangle  7 
r  Node  of  comer3  of  quadrangle  7 
r  Node  of  comer4  of  quadrangle  7 


r  Tag  number  increment  7 
/*  #  of  times  in  array  7 


/•  Tag  number  increment  7 
/*  Reflection  control  7 


extern  int  *GMJTGI, 
•GM_NRPT; 

extern  float  *GM_ROX, 
*GM  ROY, 
*GM_ROZ, 
•GM_XS, 
*GM_YS, 
*GM_ZS; 

/*  Frequency  data  7 

extern  int  *FRJFRCJ, 
•FR_NFRQ; 

extern  float  *FR_FMHZ, 
*FR  DELFRQ; 


T  Tag  number  increment  7 
P  #  of  new  structures  to  generate  7 
r  x>angle  rotation  7 
/*  y-angle  rotation  7 
f*  z-angfe  rotation  7 
r  shift  in  x  direction  7 
/*  shift  in  y  direction  7 
/•  shift  in  z  direction  7 


r  Type  of  frequency  stepping  7 
/*  Number  of  frequency  steps  7 

/*  Frequency  of  MHz  or  starting  freq  in  range  7 
r  Frequency  stepping  increment  7 


r  Ground  Parameters  7 
extern  int  •GNJPERF, 
*GN_NRADL; 
extern  float  *GN_EPSR, 
*GN_SIG, 

*GN_F3, 

*GN_F4, 

•GN_F5, 

*GN_F6; 

extern  char  *GN  Filename; 


/•  Ground  type  flag  7 
r  Number  of  radial  wires  7 
r  Relative  dielectric  constant  7 
r  Conductivity  in  S/m  of  the  ground  7 
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r  Insulating  sheath  of  dielectric  or  lossy  material  on  a  wire  7 

extern  int  *ISJ1 ,  /*  -1  to  cancel,  0  for  new  data  7 

•1SJTAG;  r  Identified  wire  for  insulation  7 
extern  float  *IS_Dlstance1 ,  /*  Distance  along  wire  for  insulation  start  7 
•ISJDistance2,  /*  Distance  along  wire  for  insulation  end  7 
*IS_EPSR,  /*  Relative  permittivity  of  sheath  material  7 
•IS  SIG,  /*  Conductivity  of  sheath  material  */ 

*1S_RADI;  r  Radius  of  sheath  7 

r  Impedance  Loading  7 

extern  int  *LD_LDTYP,  /*  Type  of  loading  used  7 

*LD_Tag;  /•  Wire  on  which  load  is  located  7 

extern  float  1D_Distance,  /•  Distance  of  load  from  end  #1  on  wire  7 
*LD_Distance2,  r  End  distance  7 
*LD  ZLR,  r  Resistance  7 

•irfZLI,  r  Inductance  7 

*LD_ZLC;  r  Capacitance  7 

1*  Upper-Medium  Parameters  7 

extern  float  *UM_EPSR,  !*  Relative  permittivity  of  medium  7 

*UM_SIG;  /*  Conductivity  of  medium  in  S/m  7 

T  Voltage  Sources  7 

extern  int  *EX_Type,  /*  Type  of  excitation  that  is  used  7 

•EXJ/Vire,  A*  Wire  on  which  voltage  source  is  located  7 
*EX_Format  /*  1  to  request  input  impedance  7 
extern  float  *EX_Distance,  /*  Distance  of  voltage  source  from  end  #1  */ 
*EX_Magnrtude,  /*  Magnitude  of  voltage  source  in  volts  */ 

"EX_  Phase,  /•  Phase  of  voltage  source  in  degrees  7 

*EX_Normal;  r  Normalization  factor  for  impedance  */ 

/*  Incident  Plane  Waves  V 

extern  int  *EX_TYPE,  /*  Type  of  excitation  that  is  used  V 
*EX_THETA_NUM,  /*  Number  of  Theta  angles  */ 
*EX_PHI_NUM;  r  Number  of  Phi  angles  */ 
extern  float  *EX_THETA  LO,  r  Angle  Theta  */ 

•EX_PHI_LO,  r  Angle  Phi  */ 

*EX_THETA_STEP,  /•  Stepping  increment  for  Theta  •/ 

*EX  PHI  STEP,  r  Stepping  increment  for  Phi  */ 
•ExIpOL_ANGLE,  r  Polarization  angle  V 
*EX_POL_RAT10,  /*  Ratio  of  minor  axis  to  major  axis  */ 
*EX_INC_MAG;  T  Magnitude  of  electric  field  */ 

r  Two-port  non-radiating  networks  */ 

extern  int  *NT_Wire1,  /*  Wire  for  first  end  of  network  */ 

*NT_Wire2;  r  Wire  for  second  end  of  network  */ 
extern  float  *NTJDistance1 ,  r  Distance  along  wire  1  for  location  */ 
*NTJDistance2,  /*  Distance  along  wire  2  for  location  */ 

*NT_Y1 1 R,  r  Real  part  of  Y1 1  in  mhos  7 
*NT  Y1 1 1,  r  Imaginary  part  of  Y1 1  in  mhos  7 
*NT”yi  2R,  r  Real  part  of  Y1 2  in  mhos  7 
*NT  Y12I,  T  Imaginary  part  of  Y12  in  mhos  7 
•NTY22R,  r  Real  part  of  Y22  in  mhos  7 
*NT_Y22I;  /*  Imaginary  part  of  Y22  in  mhos  7 

r  Transmission  Lines  7 

extern  int  *TL_Wire1 ,  /*  Wire  for  1  st  end  of  transmission  line  7 

*TL_Wire2;  /*  Wire  for  2nd  end  of  transmission  line  7 
extern  float  *TL_Distance1 ,  (*  Distance  along  wire  1  for  location  7 
*TL_Distance2,  /*  Distance  along  wire  2  for  location  7 
*TL_ZC,  r  Characteristic  impedance  in  ohms  7 
*TL_TLEN,  r  Length  of  transmission  line  in  meters  7 
*TL_Y1  R,  r  Real  part  of  shunt  admittance  across  endl 7 
*TL_Y1 1,  T  Imaginary  part  of  shunt  admittance  7 
*TL_Y2R,  r  Real  part  of  shunt  admittance  across  end27 
*TL_Y2I;  /*  Imaginary  part  of  shunt  admittance  7 

r  Maximum  Coupling  Calculation  7 

extern  int  *CP_TAG1 ,  r  Tag  number  of  1st  wire  segment  7 
*CP_TAG2;  /*  Tag  number  of  2nd  wire  segment  7 
extern  float  *CP_Distance1 ,  /*  Distance  along  wire  1  for  location  7 
*CP_Distance2;  /*  Distance  along  wire  2  for  location  7 

r  Additional  Ground  Parameters  7 

extern  int  *GDJCL!F;  /•  Boundary  type  7 
extern  float  *GD_EPSR2,  r  Relative  dielectric  of  2nd  medium  7 
*GD_SIG2,  r  Conductivity  of  2nd  medium  in  S/m  7 
*GD_CLT,  r  Distance  from  origin  to  boundary  7 
*GD_CHT;  T  Distance  from  medium  2  to  medium  1  7 

r  Near  Electric  Field  7 

extern  int  *NE_NEAR,  /*  Coordinate  type  7 

*NE_NRX,  T  Number  of  points  in  x  direction  7 
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*NE_NRY, 

*NE_NRZ; 

extern  float  *NE_XNR, 
*NE  YNR, 
*NE_ZNR, 
*NE  DXNR, 
*NE_DYNR, 
*NE  DZNR; 


1*  Number  of  points  in  y  direction  7 
r  Number  of  points  in  z  direction  7 
/*  Initial  x  coordinate  7 
r  Initial  y  coordinate  7 
f  Initial  z  coordinate  7 
r  Increment  for  x  7 
/*  Increment  for  y  7 
r  Increment  for  z  7 


r  Near  Magnetic  Field  7 


extern  int  *NH_NEAR, 
*NH  NRX, 

*NH  NRY, 

*NH  NRZ; 

extern  float  *NH_XNR, 
*NH_YNR, 
*NH_ZNR, 
*NH_DXNR, 
*NH_DYNR, 
•NH  DZNR; 


/*  Coordinate  type  7 
r  Number  of  points  in  x  direction  7 
r  Number  of  points  in  y  direction  7 
r  Number  of  points  in  z  direction  7 
r  Initial  x  coordinate  7 
I*  Initial  y  coordinate  V 
/•  Initial  z  coordinate  V 
r  Increment  for  x  7 
/*  Increment  for  y  7 
r  Increment  for  z  •/ 


/•  Print  Options  7 


extern  int  *PQ_IPTFLQ,  /*  Options  for  printing  charge  densities  7 
•PQJPTAQ;  r  Tag  number  of  Wire  to  be  printed  7 
extern  float  *PQ__Distance1 ,  t*  Beginning  location  for  wire  7 
*PQ_Distance2;  1*  End  location  for  wire  7 
extern  int  *PS_FLG1  r  Print  electrical  lengths  of  segments  7 

*PTJPTFLQ,  /*  Print  currents  on  wire  segments  7 

•PTJPTAQ;  r  Tag  number  of  Wire  to  be  printed  7 
extern  float  *PT_Distance1 ,  /*  Beginning  location  for  wire  7 

*PT_Distance2;  /*  End  location  for  wire  7 


r  Radiation  Pattern  7 


extern  int  *RPJ1, 
*RP_NTHI 
*RP  NPH, 
*RP_XNDA; 

extern  float  *RP_THETS, 
*RP_PHIS, 
*RP_DTH, 

*RP  DPH, 

*RP  RFLD, 
•RPiGNOR; 


l*  Mode  of  calculation  7 
/*  Number  of  theta  values  7 
/*  Number  of  phi  values  7 
T  Gain  options  7 
r  Initial  theta  7 
r  Initial  phi  7 
r  Increment  for  theta  7 
/*  Increment  for  phi  7 
r  Radial  distance  7 
r  Gain  normalization  factor  7 
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A.6  cNodeCoord.c,  fNodeCoord.c 


cNodeCoord.c: 

r 

*  Callbacks  &  procedures  for  the  Node  Coordinates  form 

*/ 

include  <stdio.h> 
include  <stdlib.h> 

#indude  <X11/1ntrinsicP.h> 
include  <X11/ShellP.h> 
include  <Xm/Listh> 
include  <Xm/MessageB.h> 
include  <Xm/SelectioB.h> 

#indude  <Xm/Texth> 
include  "control.h" 

extern  Widget  toplevel; 
extern  Widget  nodeCoordShell; 

extern  Widget  ‘nodeCoord Environment,  ‘nodeCoordDimension,  nodeCoord List 

r  variables  for  holding  Node  Coordinates  data  */ 

float  *X,  *Y,  *2; 

int  NodeCount  =  0; 

int  Envindex  =  FREE.SPACE; 

int  Dimlndex  =  METERS; 

extern  void  createNodeCoordWindow  O'. 

extern  int  getUstPosition  0; 

extern  int  getListCount  0; 

extern  void  modifyNodeCoordListAII  0; 

static  void  clearXYZtextFields  0; 

static  XmString  *createNodeCoordStringTable  0; 

static  XmString  createXmStringFromXVZ  0; 

static  void  getXYZtextFieids  0; 

static  void  resetListCount  0; 

static  void  setEditButtonState  0; 

i . . / 

void  openNodeCoordWindow  0 

< 

XmString  'stringTable; 

Arg  args  pj; 

Widget  menu; 
inti; 

ShellWidget  sw  =  (ShellWidget)  nodeCoordShell; 

if  (nodeCoordShell  =  NULL) 
createNodeCoordWindow  0; 
else  if  (sw->shell.  popped_up) 
return;  F  Don't  do  anything  if  already  open  V 

r  Create  string  table  &  update  list  7 
stringTable  -  createNodeCoordStringTable  0; 

XtSetArg  (args  [0],  XmNitems,  stringTable); 

XtSetArg  (args  [1],  XmNitemCount,  NodeCount); 

XtSetValues  (nodeCoordList,  args,  2); 

for  (i  =  0;  i  <  NodeCount  i++) 

XmStringFree  (stringTablep]); 

XtFree  ((char  *)  stringTable); 

r  Update  the  Environment  option  V 

menu  =  XtNameToWidget  (nodeCoordShell,  "nodeCoordForm.framel  .Environment"); 
XtSetArg  (args  [0],  XmNmenuHistory,  nodeCoordEnvironment(Envlndex]); 
XtSetValues  (menu,  args,  1); 

r  Update  the  Dimension  option  7 

menu  =  XtNameToWidget  (nodeCoordShell,  "nodeCoordForm.frame2.Dimension"); 
XtSetArg  (args  [0],  XmNmenuHistory,  nodeCoordDimension[DimlndexD; 

XtSetValues  (menu,  args,  1); 

XtPopup  (nodeCoordShell,  XtGrabNone); 
setEditButtonState  0; 

>  r  end  openNodeCoordWindow  7 

r . . . * . . 

static  XmString  ‘createNodeCoordStringTable  0 

{ 

XmStnng  •stringTable; 
char  string  [132]; 
inti; 

if  (NodeCount  >  0)  { 
r  Allocate  memory  for  string  table  7 

stringTable  =  (XmString  *)  XtMalloc  (sizeof  (XmString)  *  NodeCount); 
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r  Create  strings  to  be  placed  in  string  table  7 
for  (i  =  0;  i  <  NodeCount;  i++){ 
sprintf  (string,  "%-20d%12g%12g%12g".  H-1,  X0.  Vti],  Z®; 
stringTaWe[i]  =  XmStringCreateSimpie  (string); 

> 

>  else 

stringTable  =  NULL; 
return  (stringTable); 

)  F  end  createNodeCoordStringTable  V 

r . " . I 

void  nodeCoo rd ListC B  (w,  ciierrtData,  cb) 

Widget  w; 

XtPointer  clientOata; 

XmListCatlbackStruct  *cb; 

{ 

char x {IS],  y  [15],  z  {15],  node  [5]; 
char  'string; 

Widget  xWidget,  yWidget,  zWidget; 
if  (cb->selected_rtem_count  ”  1)  { 

)OnStringGetLtoR  (cb->  selected JtemsfO],  XmSTRING_DEFAULT_CHARSET,  Ashing); 
r  Get  text  field  widgets  V 

getXYZtextFields  (AxWidget,  AyWidget,  AzWidget); 

r  Get  data  &  put  into  text  fields  V 
sscanf  (string,  "%s  %s  %s  %s",  node,  x,  y,  z); 

XmTextSetString  (xWidget,  x); 

XmTextSetString  (yWidget,  y); 

XmTextSetString  (zWidget,  z); 

XtFree  ((char  *)  string); 

} 

/*  Enable  edit  buttons  7 
setEditButtonState  0; 

w  =  w ;  r  Make  compiler  happy  7 
dientData  =  dientOata; 


}  r  end  nodeCoordListCB  7 

r . . . / 

void  nodeTextCB  (w) 

Widget  w; 

{ 

char  text; 
int  nodeindex; 

text  =  XmTextGetString  (w); 
rf  (nodelndex  =  atoi  (text)) 

XmlistSeiectPos  (nodeCoordList,  nodelndex,  TRUE); 

XtFree  (text); 

>  r  end  nodeTextCB  7 

r . . / 

static  void  setEditButtonState  0 

{ 

Widget  addButton,  modifyButton,  deleteButton,  xText,  yText,  zText; 
int  count; 

r  Get  the  add,  modify  A  delete  buttons.  7 
modifyButton  =  XtNameToWidget  (nodeCoordShell, 
"nodeCoordForm.nodeCoordBox.workArea.  modifyButton-); 
deleteButton  =  XtNameToWidget  (nodeCoordShell, 

"nodeCoordForm.  nodeCoordBcxwofkArea.deleteButton“) ; 
addButton  =  XtNameToWidget  (nodeCoordShell, 

"nodeCoordForm.  nodeCoordBcx.workArea.addButton"); 

count  =  getListCount  (nodeCoordList); 
if  (count  ==  1)  { 

XtSetSensitive  (addButton,  TRUE); 

XtSetSensitive  (modifyButton,  TRUE); 

XtSetSensitive  (deleteButton,  TRUE); 

}e!se{ 

getXYZtextFields  (AxText,  A  yText  AzText); 

XmTextSetString  (xText,  ~); 

XmTextSetString  (yText  *“); 

XmTextSetString  (zText  ""); 
if  (count  >  1)  { 

XtSetSensitive  (addButton,  FALSE); 

XtSetSensitive  (modifyButton,  TRUE); 

XtSetSensitive  (deleteButton,  TRUE); 

> 

else  { 

XtSetSensitive  (addButton,  TRUE); 

XtSetSensitive  (modifyButton,  FALSE); 

XtSetSensitive  (deleteButton,  FALSE); 

} 
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>  /*  end  setEditButtonState  •/ 


/■ . . — . V 

static  void  getXYZtextFields  (xText  yText  zText) 

Widget  *xText  "yText  *zText 

{ 

r  Get  the  x,  y,  &  z  text  fields  7 

*xText=  XtNameToWidget  (nodeCoordShell. 

“nodeCoordForm.nodeCoordBox.workArea.xText“); 

•yText  =  XtNameToWidget  (nodeCoordShell, 

“rKxieCoordFoiTn.  nodeCoord  Box.  wortcAreayTexT); 

•zText  =  XtNameToWidget  (nodeCoordShell, 
"nodeCoordForm.nodeCoordBoxvyofkArea.zTexr'); 

}  r  end  getXYZtextFields  7 

/ . * . . . / 

static  XmString  createXmStringFromXYZ  (nodelndex) 
int  nodelndex; 

{ 

Widget  xText  yText,  zText,  button,  env; 
char  string  {SO],  *x  *y,  *z, 
float  fz; 

Arg  args  [1]; 

getXYZtextFields  (&xText  SyText,  &zText); 

r  Get  the  environment  type.  We  need  to  check  z-value  if  the 
*  environment  is  Ground  Plane. 

7 

button  =  XtNameToWidget  (nodeCoordShell, 

"nodeCoordForrn.framel  .Environment"); 

XtSetArg  (args  JpJ,  XmNmenuHistory,  &env); 

XtGetValues  (button,  args,  1); 

/*  Create  a  string  using  inputs  7 
x  =  XmTextGetString  (xText); 
y  -  XmTextGetString  (yText); 
z  =  XmTextGetString  (zText); 
fz  =  atof  (z); 

t*  Sound  bell  and  set  z  to  0  if  environment  is  Ground  Plane  and 

*Z<  0. 

7 

if  ((strcmp  ("Ground  Plane",  XtName  (env))  =-  0)  &&  (fz  <  0))  { 
fz  =  0.0; 

XBell  (XtDisplay  (xText),  50); 

> 

sprintf  (string,  "%-20d%12g%12g%12g".  nodelndex,  atof(x),  atof(y),  ft ); 
XtFree  ((char  *)  x); 

XtFree  ((char  *)  y); 

XtFree  ((char  *)  z); 

return  (XmStringCreateSimple  (string)); 

}  r  end  createXmStringFromXYZ  7 


void  nodeCoordAddButtonCB  (void) 

{ 

int  nodelndex; 

XmString  xmString; 

Widget  text; 

r  Get  the  current  list  selection  7 

nodelndex  =  getListPosition  (nodeCoordUst)  +  1 ; 

if  (nodelndex  =  1)  nodelndex  =  0; 

r  Insert  string  into  list  7 

xmString  =  createXmStringFromXYZ  (nodelndex); 
XmListAddltem  (nodeCoordUst,  xmString,  nodelndex); 
XmUstSelectPos  (nodeCoordUst  nodelndex,  TRUE); 
XmStringFree  (xmString); 

r  Reset  the  count  7 
resetUstCount  (nodelndex  + 1); 

r  Move  focues  to  x  Text  widget  7 

text  =  XtNameToWidget  (nodeCoordShell, 

"nod  eCoordForm.  nodeCoord  Box.  wo  rkArea.xTexT); 

f*  Move  focus  to  x  Text  widget  7 
XiSetKeyboard Focus  (nodeCoordShell,  text); 

XmListSetPos(nodeCoordList  nodelndex); 

)  f  end  nodeCoordAddButtonCB  7 


*  Resets  the  list  count  from  “begin"  through  the  end  of  the  list 
7 

static  void  resetUstCount  (begin) 
int  begin; 

{ 
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Arg  args  [2]; 
int  i,  j,  end.  count; 

Xm String  ‘items,  ‘newttems; 
char  ‘string,  newString  [80]; 
float  x,  y,  z; 

r  Get  list  data  7 

XtSetArg  (args  [0],  XmNitemCount,  &end); 

XtSetArg  (args  [1],  XmNitems,  &items); 

XtGetValues  (nodeCoordUst  args,  2); 

if  (end  >  0)  { 

/•  Allocate  memory  for  string  table  V 

newftems  =  (Xm String  *)  XtMalioc  (sizeof  (Xm String)  *  (end  -  begin  +  1)); 
for  (F=begin-1,  j=0;  i<end;  i++,  j-*-*-)  { 

XmStringGetLtoR  frtems[i],  Xm  STRING  DEFAULT_CHARSET,  ^string); 
sscanf  (string,  "%d  %f  %f  %r,  &count  &X  &y,  &z); 
sprintf  (newString,  "%-20d%i2g%12g%12g".  i  +  1,  x,  y,  z); 
newttems  Q]  =  XmStringCreateSimple  (newString); 

XtFree  ({char  •)  string); 

> 

XmUstReplacettemsPos  (nodeCoordUst  newftems,  j,  begin); 


for  (i  =  0;  i  <  j;  i++) 

XmStringFree  (newftems[i]); 

XtFree  ((char  *)  newttems); 

} 

}  P  end  resetListCount  7 

r . . ***** . / 

void  nodeCoordModifyButtonCB  (void) 

{ 

int  nodelndex; 

XmString  xm  String; 

if  (getListCount  (nodeCoordUst)  >  1)  { 
modifyNodeCoordUstAII  (nodeCoordUst); 
setEdrtButtonState  0; 
return; 

> 

r  Get  the  current  list  selection  7 

if  (nodelndex  =  getListPcsition  (nodeCoordUst))  { 

r  Replace  string  in  list  V 

xmString  =  createXmStnngFrcmXYZ  (nodelndex); 

XmUstReplacettemsPos  (nodeCoordUst  &xmString,  1,  nodelndex); 
XmListSelectPos  (nodeCoordUst  nodelndex,  TRUE); 

XmStringFree  (xmString); 

} 

}  r  end  nodeCoordModifyButton  */ 

r . - . . / 

void  nodeCoordDeleteButtonCB  (void) 

{ 

int  nodelndex; 
int  ‘positionUst  count 
int  total; 
char  msg[80]; 

XEvent  event; 

XtAppContext  ext  =  XtWidgetToApplicationContext(topLeveQ; 

Boolean  sufficientNodeCountO; 

/*  Clear  the  text  fields  7 
clearXYZtextFields  0; 

r  Get  the  current  list  selection  V 

if  (nodelndex  =  getListPosition  (nodeCoordUst))  { 

r  Delete  string  in  list 
7 

XmListGetSelectedPos  (nodeCoordUst  SpositionList  &count); 
total  =  NodeCount  •  count 
if  (IsufficientNodeCount(total)}  { 

sprintf (msg,  "Insufficient  number  of  nodes  defined.\nCannot  delete."); 
createMessageDialog(topLevel,  "Warning",  msg,  XmDIALOGJWARNING); 
while  (True)  { 

XtAppNext£vent(cxt  &event); 

XtDispatchEvent(&event) ; 
if  {event  xfocus.type  =  FocusOut)  { 
break; 

} 

) 

XtFree  ((char  *)positionUst); 

XmListDeselectAllltems(nodeCoordUst); 

setEditSuttonState  0; 

return; 

> 

XmListDeletePositions  (nodeCoordList  positionUst  count); 

XtFree  ((char  *)positionUst); 
resetListCount  (nodelndex); 
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setEd itfi utton State  Q; 

XmListSelectPos  (nodeCoord  list,  nodelndex,  TRUE); 

If  (IXmUstPosSelected(nodeCoordUst,  nodelndex)) 

XmListSelectPos  (nodeCoord  list,  nodelndex  - 1,  TRUE); 

> 

}  r  end  nodeCoofdDeleteButton  V 

/ . "* . **V 

void  nodeCoordTextCB  (w,  nextText) 

Widget  w,  nextText; 

{ 

XtSetKeyboardFocu*  (nodeCoordShell,  nextText); 
w  =  w;  I*  Make  compiler  happy  V 

>  rend  nodeCoordT axtCB  */ 

. . . ************** 

*  Save  the  changes  and  close  the  window. 

*/ 

void  nodeCoordOkButtonCB  (void) 

< 

extern  void  nodeCoordApplyButtonCB  0; 

nodeCoordApplyButtonCB  0; 

XtPopdown  (nodeCoordShell); 

>  r  end  nodeCoordOkButtonCB  */ 

r . 

*  Save  the  changes  and  leave  window  open. 

V 

void  nodeCoordApplyButtonCB  (void) 

{ 

Widget  button,  env,  dim; 

XmString  'items; 

Arg  args  [10]; 
int  n,  count,  i,  node; 
float  x,  y,  z; 
char  'string; 

extern  Boolean  saveAlert 
extern  Boolean  DRAW, 

n  =  0; 

XtSetArg  (args  (n),  XmNrtems.  &items);  n++; 

XtSetArg  (args  [n],  XmNitemCount,  &count);  n++; 

XtGetValues  { nodeCoord List,  args,  n); 

r  Allocate  X,  Y,  and  Z  arrays  V 
X  =  (float  *)  XtRealloc  ((char  *)  X,  sizeof  (float)  *  count); 

Y  =  (float  *)  XtRealloc  ({char  *)  Y,  sizeof  (float)  *  count); 

Z  =  (float  *)  XtRealloc  ((char  •)  Z,  sizeof  (float)  *  count); 

NodeCount  =  count; 
for  (psO;  »<count  i++)  { 

XmStringGetLtoR  (itemsp],  XmSTRING  DEFAULT_CHARSET,  &string); 
sscanf  (string,  "%d  %f  %f\  &node,  &x,  &y,  &z); 

X0  =  * 

Y[i]  =  y; 

Z[i]  =  r, 

XtFree  ((char  *)  string); 

> 

f*  Save  the  environment  &  dimension  */ 
button  =  XtNameToWidget  (nodeCoordShell, 

"nodeCoordForm.framel  .Environment”); 

n  =  0; 

XtSetArg  (args  [n],  XmNmenuHistory,  &env);  n++; 

XtGetValues  (button,  args,  n); 
saveEnvironment  (env); 

button  =  XtNameToWidget  (nodeCoordShell,  "nodeCoordForm.frameZDimension"); 
n  =  0; 

XtSetArg  (args  [n],  XmNmenuHistory,  &dim);  n++; 

XtGetValues  (button,  args,  n); 
saveDimension  (dim); 

saveAlert  =  True; 

DRAW  =  True; 

>  r  end  nodeCoordApplyButtonCB  V 

/ . — 

*  Ignore  all  changes  and  reset  the  values. 

*/ 

void  nodeCoordResetButtonCB  (void) 

{ 

Widget  button; 

XmString  'stringTable; 

Arg  args  pj; 
inti; 

stringTable  =  createNodeCoordStringTable  0; 
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XtSetArg  (args  [0],  XmNitems.  stringTable); 

XtSetArg  (args  [ij,  XmNrtemCount,  NodeCount); 

XtSotArg  (args  [21,  XmNselectedltemCount,  0); 

XtSotValuos  (nodeCoordlist,  args,  3); 

for  0  =  0;  i  <  NodeCount;  i++) 

XmStringFreo  (stringTableOI); 

XtFree  ((char  ■)  stringTable); 

clearXYZtextFtelds  0; 

setEditButtonState  0; 

r  Reset  the  environment  &  dimension  */ 

button  =  XtNameToWidget  (nodeCoordShell,  “nod  ©Coord  Form,  fra  me  1.  Environ  men  t-); 
XtSetArg  (args  [0],  XmNmenuHwtory,  nodeCoordEnvironmentfEnvlndex]); 
XtSetVaiues  (button,  args,  1); 

button  =  XtNameToWidget  (nodeCoordShell,  “nodeCoordForm.frameZ Dimension-); 
XtSetArg  (args  [0],  XmNmenuHistory,  nodeCoordDimension[DimlndexD; 

XtSetVaiues  (button,  args,  1); 

}  r  end  nodeCoordResetButtonCB  V 

. — — . 

static  void  ciearXYZtextFields  0 

Widget  x,  y,  r, 

getXY7textFields  (&x,  &y,  &z); 

XmTextSetString  (x,  *“0; 

XmTextSetString  (y,  **“); 

XmTextSetString  (z, "); 

>  r  end  ciearXYZtextFields  V 

r . . . . . . . / 

void  nodeCoordEnvCB  (w) 

Widget  w; 

{ 

Arg  args  [3]; 

if  (strcmp  (XtName  (w),  “Ground  Plane**)  =  0)  { 
int  n,  i.  count; 

XmStnng  'items; 
char 'string; 

n  =  0; 

XtSetArg  (args[n],  XmNitems,  &items);  n++; 

XtSetArg  (args[nj,  XmNitemCount,  &count);  n++; 

XtGetValues  (nodeCoordUst,  args,  n); 

for  (i  =  0;  i  <  count;  i++)  { 
int  node; 
float  x,  y,  z, 

XmStringGetLtoR  (rtems[i],  Xm STRING  DEFAULT  CHARSET,  &string); 
sscanf  (string,  “%d  %f  %f  %r,  &node,  &x,  &y,  &z); 

XtFree  ((char  *)  string); 
if  (z  <  0)  { 

Widget  menu; 

createMessageDialog  (nodeCoordShell,  “Node  Coordinates", 

"Z  values  cannot  be  less  than  zero\n\ 
when  Environment  is  a  Ground  Plane."); 

menu  =  XtNameToWidget  (nodeCoordShell, 

"nodeCoordForm.framel  .Environment**); 

XtSetArg  (args  [0],  XmNmenuHistory,  nodeCoordEnvironment[FREE_SPACE]); 
XtSetVaiues  (menu,  args,  1); 

break; 

) 

} 

} 

)  /*  end  nodeCoordEnvC8  V 

r . . . / 

Boolean  suffldentNodeCount(count) 
int  count; 

{ 

inti; 

extern  int  SWireCount,  TaperWireCount  CWireCount, 

SurfacePatchCount,  Multi  plePatchCount 
extern  int  'GW_END1 ,  *GW_END2,  'GC_END1 ,  *GC_END2, 

*CW_END1,  *CW_EN02,  *SP_Comert ,  *SP_Comer2, 

'SP  Comer3,  *SP_Comer4,  *SM_Comer1 , 

*SM~Comer2,  *SM_Comer3; 


for  (>  =  0;  i  <  SWireCount;  i++) 
if  (GW_EN01  [i]  >  count  || GW_END2[i]  >  count) 
return  False; 

for  (i  =  0;  i  <  TaperWireCount;  i++) 
if  (GC_END1p]  >  count  ||  GC_END2[i]  >  count) 
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return  False; 

for  (i  =  0;  i  <  CWireCount;  i++) 
if  (CW_END1  [i]  >  count  ||  CW_END2[i]  >  count) 
return  False; 

for  (i  =  0;  i  <  SurfacePatchCount;  •♦♦) 
if  (SP_Comer1  [>]  >  count  I!  SP_Comer2(i]  >  count  J| 
SP_Comer3[t]  >  count  jj  SP_Comer4[i]  >  count) 
return  False; 

for  (i  =  0;  i  <  MuttiplePatchCount;  i++) 
if  (SM_Comer1  [i]  >  count  ||  SM_Comer2[i]  >  count  |j 
SM_Comer3[i]  >  count) 
return  False; 

return  True; 

)  r  end  sufficientNodeCount  */ 


fNodeCoord.c: 

r 

*  Procedures  for  creating  the  Node  Coordinates  Window 
V 

include  "control.h" 
include  <Xm/Form.h> 
include  <Xm/Frame.h> 
include  <Xm/Label.h» 
include  <Xm/PushB.h> 
include  <Xm/RowColumn.h> 
include  <Xm/SelectioB.h> 
include  <Xm/TexLh> 
include  <stdio.h> 

Widget  nodeCoordShell  =  NULL, 
•nodeCoordEnvironment, 

•nodeCoordDimension, 

nodeCoordList; 

extern  Widget  topLevel; 

extern  int  Envlndex,  Dimlndex; 

extern  Xm  String  *createNodeCoordStringTable  0; 

extern  void  createOptionMenu  0; 

extern  int  NodeCount; 

r  Forward  declarations  for  callbacks  V 
extern  void  cancelButtonCB  0; 
extern  void  HighlightText  0; 
extern  void  nodeCoord Add ButtonCB  0; 
extern  void  nodeCoord ApplyButtonCB  0; 
extern  void  nodeCoordDeleteButtonCB  0; 
extern  void  nodeCoordEnvCB  0; 
extern  void  nodeCoord ListCB  0; 
extern  void  nodeCocrdModifyButtonCB  0; 
extern  void  nodeCoordOkButtonCB  0; 
extern  void  nodeCoordResetButtonCB  0; 
extern  void  nodeCoordTextCB  0; 

static  Widget  createSelectionBox  0; 
static  Widget  createWorkArea  0; 


r . / 

void  createNodeCoordWindow  0 

{ 

Widget  form,  frame,  menuPane,  button,  optionMenu, 
selectionBox,  workArea; 

Arg  args  [10]; 
int  n  =  0; 

XmString  string; 

Position  x,  y, 

extern  void  nodeCoordEnvCB  0; 
extern  void  n  ©wE  scape  Action  Q; 

XtTranslateCoords  (topLevel,  (Position)  0,  (Position)  0,  &x,  &y); 

XtSetArg  (args  [n],  XmNx,  x);  n++; 

XtSetArg  (args  (nj,  XmNy,  y  ♦  100);  n++; 
nodeCoordShell  =  XtCreatePopupShell  (“Node  Coordinates**, 
topLevelShellWidgetClass,  topLevel,  args,  0); 

newEscapeAction(nodeCoordShell); 

form  =  XmCreateForm  (nodeCoordShell,  “nodeCoordForm",  args,  0); 

r  Create  arrays  to  hold  Option  Widgets  */ 

nodeCoordEnvironment  =  (Widget  •)  XtMalloc  (sizeof  (Widget)  *  NUM_ENV); 
nodeCoordDimension  =  (Widget  *)  XtMalloc  (sizeof  (Widget)  *  NUMJDIM); 


T  Create  Environment  Option  Menu  7 
n  =  0; 
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XtSetArg  (args  [n],  XmNshadowType,  XmSHADOWJETCHED  IN);  n++; 

XtSetArg  (args  [nj,  XmNleftAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNleftOffset  15);  n++; 

XtSetArg  (args  [nj,  XmNtopAttachnnent,  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNtopOffset  15);  n++; 
frame  =  XmCreateFrame  (form,  “framer,  args,  n); 

XtManageChild  (frame); 

menuPane  =  XmCreatePulldownMenu  (frame,  “menuPane",  NULL,  0); 

button  =  XmCreatePush Button  (menuPane,  Tree  Space".  NULL,  0); 
XtManageChild  (button); 

XtAddCallback  (button,  XmNactivateCallback,  nodeCoordEnvCB,  FREE_SPACE); 
nodeCoordEnvironment  [0]  =  button; 

button  =  XmCreatePushButton  (menuPane,  "Ground  Plane",  NULL,  0); 
XtManageChild  (button); 

XtAddCallback  (button,  XmNactivateCallback,  nodeCoordEnvCB, 

(XtPointer)  GROUND_PLANE); 
nodeCoordEnvironment  (1)  =  button; 

string  =  XmStringCreateSimple  ("Environment"); 
n  =  0; 

XtSetArg  (args  [n],  XmNlabelString,  string);  n++; 

XtSetArg  (args  [nj,  XmNsubMenuld,  menuPane);  n++; 
optionMenu  =  XmCreateOptionMenu  (frame,  "Environment",  args,  n); 
XtManageChild  (optionMenu); 

XtFree  ((char  *)string); 

t*  Create  Dimension  Option  Menu  */ 

n  =  0; 

XtSetArg  (args  [n],  XmNshadowType,  XmSHADOW_ETCHED_IN);  n*+; 

XtSetArg  (args  [nj,  XmNrightAttachment,  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNnghtOffset,  15);  n++; 

XtSetArg  (args  [nj,  XmNtopAttachment,  XmATTACH__FORM);  n++; 

XtSetArg  (args  [nj,  XmNtopOffset,  15);  n++; 
frame  -  XmCreateFrame  (form,  "fra me 2",  args,  n); 

XtManageChild  (frame); 

menuPane  =  XmCreatePulldownMenu  (frame,  “menuPane",  NULL,  0); 

button  =  XmCreatePushButton  (menuPane,  "Meters",  NULL,  0); 

XtManageChild  (button); 
nodeCoord Dimension  [0]  =  button; 

button  =  XmCreatePushButton  (menuPane,  "Centimeters",  NULL,  0); 
XtManageChild  (button); 
nodeCoordDimension  [1]  =  button; 

button  =  XmCreatePushButton  (menuPane,  Teet",  NULL,  0); 

XtManageChild  (button); 
nodeCoordDimension  [2]  =  button; 

button  =  XmCreatePushButton  (menuPane,  "Inches",  NULL,  0); 

XtManageChild  (button); 
nodeCoordDimension  (3]  =  button; 

string  =  XmStringCreateSimple  ("Dimension"); 
n  =  0; 

XtSetArg  (args  [n],  XmNlabelString,  string);  n++; 

XtSetArg  (args  [nj,  XmNsubMenuld,  menuPane);  n++; 
optionMenu  =  XmCreateOptionMenu  (frame,  "Dimension",  args,  n); 

XtManageChild  (optionMenu); 

XtFree  ((char  *}  string); 

r  Create  selection  box  &  work  area  V 

selectionBox  =  createSelectionBox  (form,  frame); 
workArea  =  createWorkArea  (selectionBox); 

XtManageChild  (workArea); 

XtManageChild  (selectionBox); 

XtManageChild  (form); 

T  Select  current  item  in  selection  box  */ 

if  (NodeCount) 

XmUstSelectPos  (nodeCoordList,  1,  TRUE); 

}  r  end  createNodeCoordWindow  */ 

r . - . . . / 

static  Widget  createSelectionBox  (parent  widget) 

Widget  parent  widget 

{ 

Widget  box,  child  [2]; 

Arg  args  [15]; 
int  n; 

XmString  stringl ,  string2,  string3; 
char  str  [80]; 

extern  void  newSelectActionTable  0; 
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/•  Create  topievel  selection  box  */ 


n  =  0; 

sprintf  (str,  "%-20s%12s%1 2s%1 2s%*“,  "Node",  "X",  T,  "Z ",  "  "); 

XtSetArg  (args  [n],  XmNshadowThickness,  1);  n++; 

XtSetArg  (args  [nj,  XmNleftAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [n],  XmNleftOffset  15);  n++; 

XtSetArg  (args  [nj,  XmNrightAttachment,  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNrightOffset,  15);  n*+; 

XtSetArg  (args  [nj,  XmNtopAttachment,  XmATTACH_WlDGET);  n++; 

XtSetArg  (args  (nj,  XmNtopWidget,  widget);  n++; 

XtSetArg  (args  [nj,  XmNtopOffset,  15);  n++; 

XtSetArg  (args  [nj,  XmNbottomAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNbottomOffset,  15);  n++; 

XtSetArg  (args  [nj,  XmNlistVisibleltomCognt  5);  n++; 
stringl  =  XmStringCreateSimple  (str); 

XtSetArg  (args  [n],  XmNlistLabelString,  stringl);  n++; 
stringZ  =  XmStringCreateSimple  fCanceT); 

XtSetArg  (args  [n],  XmNhelpLabelString,  string2);  n++; 
string3  =  XmStnngCreateSimple  ("Reset"); 

XtSetArg  (args  [n],  XmNcancelLabelString,  string3);  n++; 

XtSetArg  (args  [nj,  XmNiistVisiblettomCount,  5);  n++; 

box  =  XmCreateSelectionBox  (parent,  "nodeCoord Box",  args,  n); 

XmStringFree  (stringl); 

Xm String  Free  (string2); 

XmStringFree  (string3); 

r  Register  callbacks  for  Selection  Box  list  V 

nodeCoordList  =  XmSelectionBoxGetChild  (box,  XmDIALOG_LIST); 

n=0; 

XtSetArg(args[n],  XmNselectionPolicy,  XmEXTENDED_SELEC7);  n++; 
XtSetValues(nodeCoordUst,  args,  n); 

XtAddCallback  (nodeCoordList  XmNextendedSelectionCallback, 
nodeCoordListCB,  NULL); 
newSelectActionTable  (nodeCoordList; 

r  Unmanage  unneeded  children  V 

n  =  0; 

.  child  [n-M-]  s  XmSelectionBoxGetChild  (box,  XmDIALOG_SELECTION__!_ABEL); 
child  jn++j  =  XmSelectionBoxGetChild  (box.  XmDIALOG_TEXT); 
XtUnmanageChildren  (child,  n); 

child  PI  =  XmSelectionBoxGetChild  (box,  XmDIALOG_APPLY_BLTTTON); 
XtAddCallback  (child  [Oj.  XmNactivateCaiiback, 
nodeCoordApplyButtonCB,  NULL); 

XtManageChild  (child  p]); 

r  Add  callbacks  for  ok,  apply,  reset  &  cancel  buttons  V 

child  PJ  =  XmSelectionBoxGetChild  (box,  XmDIALOG_OK__BUTTON); 
XtAddCallback  (child  p),  XmNactivateCaiiback,  nodeCoordOkButtonCB,  NULL); 
child  P]  =  XmSelectionBoxGetChild  (box,  XmDIALOG_CANCEL_BUTTON); 
XtAddCallback  (child  p ],  XmNactivateCaiiback, 
nodeCoordResetButtonCB,  NULL); 

child  P)  =  XmSelectionBoxGetChild  (box,  XmDIALOGJHELP^BLTTTON); 
XtAddCallback  (child  pj,  XmNactivateCaiiback,  cancelButtonCB,  NULL); 

r  Remove  default  button  */ 

n  =  0; 

XtSetArg  (args  [n],  XmNdefaultButton,  NULL);  n++; 

XtSetValues  (box,  args,  n); 

return  (box); 

}  r  end  createSelectionBox  V 


static  Widget  createWorkArea  (parent) 


Widget 

parent 

Widget 

box. 

label, 

xText 

yText 

zText 

button, 

mButton; 

Arg 

args  [10]; 

int 

n; 

XmString  string; 

r  Create  outer  form  box  V 


n  =  0; 

box  =  XmCreateForm  (parent  "workArea",  args,  n); 
XtManageChild  (box); 


7 
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r  Create  location-x  text  field  */ 


n  =  0; 

XtSetAry  {args  [n],  XmNleftAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [n],  XmNleftOffset  10);  n++; 

XtSetArg  (args  [nj,  XmNtopAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNtopOffset  30);  n++; 

XtSetArg  (args  [n],  XmNedrtMode,  XmSINGLE_UNE_EDfT);  n++; 

XtSetArg  (args  [nj,  XmNcolumns,  11);  n++; 

XtSetArg  (args  [nj,  XmNmaxLength,  11);  n++; 
xText  =  XmCreateText  (box,  "xText**,  args,  n); 

XtManageChild  (xText); 

r  Create  location-x  label  V 

n  =  0; 

string  =  XmStringCreateSimple  ("location  X“); 

XtSetArg  (args  [nj,  XmNIabelStnng,  string);  n++; 

XtSetArg  (args  [nj,  XmNleftAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [n],  XmNleftOffset  10);  n++; 

XtSetArg  (args  [nj,  XmNbottomAttachment  XmATTACH_WIDGET);  n++; 

XtSetArg  (args  [nj,  XmNbottom Widget  xText);  n++; 

XtSetArg  (args  [n],  XmNrightAttachment  XmATTACH_OPPOSfTE_WlDGET);  n++; 
XtSetArg  (args  [nj,  XmNrightWidget  xText);  n++; 
label  =  XmCreateLabel  (box,  "xLaber,  args,  n); 

XtManageChild  (label); 

XmStringFree  (string); 

r  Create  location-y  text  field  */ 

n  =  0; 

XtSetArg  (args  [n],  XmNleftAttachment  XmATTACH_WIDGET);  n++; 

XtSetArg  (args  [n],  XmNleftWidget  xText);  n++; 

XtSetArg  (args  [nj,  XmNleftOffset  5);  n++; 

XtSetArg  (args  [nj,  XmNbottomAttachment  XmATTACH_OPPOSrTE_WlDGET);  n++; 
XtSetArg  (args  [nj,  XmNbottomWidget  xText);  n++; 

XtSetAry  (args  [nj,  XmNedrtMode,  XmSlNGLEJJNE_EDIT);  n++; 

XtSetArg  (args  [nj,  XmNcolumns,  11);  n++; 

XtSetArg  (args  [nj,  XmNmaxLength,  11);  n++; 
yText  =  XmCreateText  (box,  “/TexT,  args,  n); 

XtManageChild  (yText); 

XtAddCallback  (xText  XmNactivateCallback,  nodeCoordTextCB,  yText); 
XtAddCallback  (xText  XmNfocusCallback,  HighlightText  NULL); 

r  Create  location-y  label  •/ 

n  =  0; 

string  =  XmStringCreateSimple  fY:*}; 

XtSetArg  (args  [n],  XmNlabelString,  string);  n++; 

XtSetArg  (args  [n],  XmNleftAttachment  XmATTACH_OPPOSITEJ/VIDGET);  n++; 
XtSetArg  (args  [nj,  XmNleftWidget  yText);  n++; 

XtSetArg  (args  [nj,  XmNbottomAttachment  XmATTACH_OPPOSrTE_WIDGET);  n++; 
XtSetArg  (args  [nj,  XmNbottomWidget  label);  n++; 

XtSetArg  (args  [nj,  XmNrightAttachment  XmATTACH_OPPOS[TE_WIDGET);  n++; 
XtSetArg  (args  [nj,  XmNrightWidget  yText);  n++; 
label  =  XmCreateLabel  (box,  “yLabef,  args,  n); 

XtManageChild  (label); 

XmStringFree  (string); 

r  Create  location-z  text  field  •/ 

n  =  0; 

XtSetArg  (args  [n],  XmNleftAttachment  XmATTACH_WIDGET);  n++; 

XtSetArg  (args  [n],  XmNleftWidget  yText);  n++; 

XtSetArg  (args  [nj,  XmNleftOffset  5);  n++; 

XtSetArg  (args  [nj,  XmNbottomAttachment  XmATTACH_OPPOSFTE__WIDGET);  n++; 
XtSetArg  (args  [nj,  XmNbottomWidget  yText);  n++; 

XtSetArg  (args  [nj,  XmNedrtMode,  XmSINGLE_UNE_EDfT);  n++; 

XtSetArg  (args  [nj,  XmNcolumns,  11);  n++; 

XtSetArg  (args  [nj,  XmNmaxLength,  11);  n++; 
zText  =  XmCreateText  (box,  “zTexT,  args,  n); 

XtManageChild  (zText); 

XtAddCallback  (yText  XmNactivateCallback,  nodeCoordTextCB,  zText); 

XtAddCallback  (yText  XmNfocusCallback,  HighlightText  NULL); 

r  Create  location-z  label  7 

n  =  0; 

string  =  XmStringCreateSimple  fZ:-); 

XtSetArg  (args  [nj,  XmNlabelString,  string);  n++; 

XtSetArg  (args  [nj,  XmNleftAttachment  XmATTACH_OPPOSrTE_WIDGET);  n++; 
XtSetArg  (args  [nj,  XmNleftWidget  zText);  n++; 

XtSetArg  (args  [nj,  XmNbottomAttachment  Xm ATT ACH JDPP0S1TE_WIDG  ET) ;  n++; 
XtSetArg  (args  [nj,  XmNbottomWidget  label);  n++; 

XtSetArg  (args  [nj,  XmNrightAttachment  XmATTACH_OPPOSfTE_WlDGET);  n++; 
XtSetAry  (args  [nj,  XmNrightWidget  zText);  n++; 
label  =  XmCreateLabel  (box,  “z  Label"  args,  n); 

XtManageChild  (label); 

XmStringFree  (string); 

T  Create  Add  button.  Put  in  dummy  string  of  6  characters  so  that 
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*  this  button  will  be  the  same  size  as  the  others.  Then  reset 

*  label  string. 

7 

n  =  0; 

string  =  XmStringCreateSimple  ("ioooooO; 

XtSetArg  (args  [nj,  XmNlabelString,  string);  n++; 

XtSetArg  (args  (nj,  XmNrightAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNrightOffset  10);  n++; 

XtSetArg  (args  [nj,  XmNtopAttachment  XmATTACH_FORM);  n++; 
button  =  XmCreatePushButton  (box,  “addButton",  args  ,n); 

XtManageChiid  (button); 

XmStringFree  (string); 

XtAddCallback  (zText  XmNactivateCallback,  nodeCoordTextCB,  button); 
XtAddCallback  (zText  XmNfocusCallback,  HighlightText,  NULL); 

string  =  XmStringCreateSimple  ("Add"); 

XtSetArg  (args  (n),  XmNrecomputeSize,  FALSE);  n++; 

XtSetArg  (args  (nj,  XmNlabelString,  string);  n++; 

XtSetVaiues  (button,  args,  n); 

XmStringFree  (string); 

/*  Register  callback  for  add  button.  7 

XtAddCallback  (button,  XmNactivateCallback,  nodeCoordAddButtonCB.  NULL); 

/*  Create  Modify  button  7 
n  =  0; 

string  =  XmStringCreateSimple  ("Modify"); 

XtSetArg  (args  [n],  XmNlabelString,  string);  n++; 

XtSetArg  (args  (nj,  XmNrightAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  (nj,  XmNrightOffset  10);  n++; 

XtSetArg  (args  [nj,  XmNtopAttachment,  XmATTACH_WIDGET);  n++; 

XtSetArg  (args  [nj.  XmNtopWidget  button);  n++; 

XtSetArg  (args  [nj,  XmNtopOffset  10);  n++; 

mButton  =  XmCreatePushButton  (box,  "modify Button",  args  ,n); 

XtManageChiid  (mButton); 

XmStringFree  (string); 

XtAddCallback  (mButton,  XmNactivateCallback,  nodeCoordModifyButtonCS,  NULL); 
r  Create  Delete  button  7 
n  =  0; 

string  =  XmStringCreateSimple  ("Delete"); 

XtSetArg  (args  [nj,  XmNlabelString,  string);  n++; 

XtSetArg  (args  [nj,  XmNrightAttachment  XmATTACH_FORM);  r*'*-*-; 

XtSetArg  (args  [nj,  XmNrightOffset  10);  n++; 

XtSetArg  (args  [nj,  XmNtopAttachment  XmATTACH_WIDGET);  n++; 

XtSetArg  (args  [nj,  XmNtopWidget  mButton);  n++; 

XtSetArg  (args  [nj,  XmNtopOffset  10);  n++; 

button  =  XmCreatePushButton  (box,  "deieteButton",  args  ,n); 

XtManageChiid  (button); 

XmStringFree  (string); 

XtAddCallback  (button,  XmNactivateCallback,  nodeCoordDeleteButtonCB,  NULL); 
return  (box); 

}  r  end  createWorkArea  7 
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A.7  spiral.c 


spiral.c: 

r  routine  spiral  performs  spiraling  of  the  wires  according 
to  the  option  selected  by  the  user 
7 

include  <math.h> 
include  <stdio.h» 
ftndude  "control,  h" 

void  spiral(w,  soptjon) 

Widget  w; 
char  *sopt>on; 

r  arguments  need  to  be  determined  7 

< 

int  option,  i,  n,  *array_sort,  'ivectorO,  *newEnd1,  *newEnd2, 

•newTag,  *newNS; 

float  *anrayjinear,  •array_angle,  *airay_radial,  *vectorO; 
long  *anay_total,  TvectorO; 

void  longindsortO,  XtFree_vectorO,  XtFree_ivecto.rO,  XtFreeJvectorO; 
float  xc,  ye,  zc,  lin_min,  lin_max,  ang_min,  ang_max,  rad_mm,  rad_max, 
vail,  va!2,  va(3,  angle,  lin_drf,  ang_drf,  rad_dif,  *newRad; 
extern  int  SWireCount; 
extern  float  *X,  *Y,  *Z,  *GW_RAD; 
extern  int  *GW_END1 ,  *GW_END2,  *GW_fTG,  *GW_NS; 
extern  void  updateStraightWireWindow  0; 

if  (SWireCount  <  2)  return; 

n  =  SWireCount; 
option  =  atoi  (soption); 
r  allocate  storage  for  the  vector  arrays  7 
array_sort  =  ivector(1  ,n); 
array Jinear  =  vector(1,n); 
array_angle  =  vector(1,n); 
array_radial  =  vector(1  ,n); 
array_total  =  lvector(1,n); 
r  loop  through  the  wires  7 
for  (i  =  1;  i  <  n+1;  h-+) 

{ 

/*  determine  the  center  point  of  the  wire,  put  it  in  (xc,yc,zc)  7 
xc  =  (X[GW_END1fi-1)-1J  +  X(GW  END2[i-1]-1])  /  2; 
yc  =  (Y[GW  END1  [i-1]-1]  +  YfGW_END2[i-13-1J) !  2; 
zc  =  (Z(GW_END1  p-1]-1  J  +  Z[GW_END2[i-1  ]-1  ])  /  Z 
r  depending  on  the  parameter  “option",  assign  values  to  the  arrays  7 
switch  (option) 

{ 

case  1: 

case  Z  arrayjinearfi]  =  xc; 

angle  =  (zc  ==  0)  &&  (yc  =  0)  ?  0.0  :  atan2(zc,yc); 
if  (angle  <  0.0)  angle  =  angle  +  2.0*M_PI; 
array_angle(i]  =  angle; 
array_radial[i]  =  sqrt(zc*ze+yc*yc); 
break; 
case  3; 

case  4:  arrayjinearfl]  =  yc; 

angle  =Tzc  ==  0)  &&  (xc  =  0)  ?  0.0  :  atan2(zc,xc); 
if  (angle  <  0.0)  angle  =  angle  +  2.0*M_PI; 
array_angle(i]  =  angle; 
anay_radiai[ij  -  sqrt(zc*zc+xc*xc); 
break; 
case  5; 

case  6:  arrayjinearfi]  =  zc; 

angle  =  (xc  =  0)  &&  (yc  ==  0)  ?  0.0 :  atan2(yc,xc); 
if  (angle  <  0.0)  angle  =  angle  +  2.0*M_PI; 
array_angie[i]  =  angle; 
array_radial[i]  =  sqrt(xc*xc+yc*yc); 

} 

r  initialize  the  min  and  max  values  7 
if  0  ==  1) 

{ 

lin_min  =  arrayjinearfl]; 
lin_max  =  arrayjinear{1]; 
ang_min  =  array_angle[1]; 
ang_max  =  array_angle[1]; 
rad_min  =  array_radial[1); 
tad_max  =  array_radial[1]; 

> 

else 

{ 

T  set  min  and  max  values  depending  on  the  parameter  "option"  7 
switch  (option) 

{ 

case  1; 
case  3: 

case  5:if  (anayjinear[i]  <  lin_min)  lin_min  =  array_linear(i); 
if  (arrayjinearfi]  >  ltn_max)  !in_max  =  4rray_linear(i]; 
if  (array_anglep]  <  ang_min)  angL_min  =  anay_angle[i); 
if  (array_angle[i]  >  ang_max)  ang_max  =  anay_angle[i]; 
if  (array_radia![i]  <  rad_min)  rad_min  =  array_radial[i]; 
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if  (array_radial[i]  >  rad_max)  rad_max  =  array_radial[i]; 
break; 
case  2 
case  4: 

case  6:if  (arrayjinearfl  >  linjmin)  lin_min  =  arrayjinearfi]; 
if  {arrayjinearfi]  <  lin_max)  lin_max  =  arrayjinearfl); 
if  (array_angle[i]  >  ang_min)  ang_min  =  array_angle[ij; 
if  (array_angle[i]  <  ang_max)  ang_max  =  array_angle[i]; 
if  (array_radial[i]  <  rad_min)  rad_min  =  array_radial[i]; 
if  (array_radial[i]  >  rad_max)  rad  max  =  array_radial[Q; 

} 

> 

> 

rad_dif  =  1000.0/(rad_max  -  rad_min); 
ang^dif  =  999000.  Q/(ang_max  -  ang_min); 
lin_dif  =  999000000, 0/(1 in_max  -  lin_min); 

1*  now  determine  array_total  7 
/*  loop  through  the  wires  7 
for  (i  =  1;  i  <  n+1;  i++)  { 

vail  =  rad_max  ==  rad_min  ?  0.0 :  rad_dif  *  (array_radial(i]  -  rad_min); 
val2  =  ang_max  ==  ang_min  ?  1000.0  : 

1000.0  ♦  ang_dif  *  (array_angle[i]  -  angjmin); 
val3  =  lin_max  ==  lin_min  ?  1000000.0  : 

1000000.0  +  lin_dif  *  (arrayjinear(ii]  -  linjnin); 
anay_total[i]  =  (long)  (vail  ♦  val2  +  va!3); 

> 

/*  now  do  an  indexed  sort  on  arrayjotal  7 
longindsort(ntarray_Jotal,array_sort); 

T  Free  some  memory  7 
XtFree_yector(arrayJinear,1); 

XtFree_vector(array_angle,1); 

XtFree_vector(arrayjadial,  1); 

XtFreeJvector(array_total,  1 ); 

r  now  use  anay_sort  as  an  index  array  to  sort  the  wires  7 
newEndl  =  (int~*)  XtMalloc  (sizeof  (int)  *  SWireCount); 
newEnd2  =  (int  *)  XtMalloc  (sizeof  (int)  *  SWireCount); 
newNS  =  (int  *)  XtMalloc  (sizeof  (int)  *  SWireCount); 
newTag  =  (int  *)  XtMalloc  (sizeof  (int)  *  SWireCount); 
newRad  =  (float  *)  XtMalloc  (sizeof  (float)  *  SWireCount); 
for  (i  =  0;  i  <  SWireCount;  i++)  { 
int  j; 

j  =  array  sortft  +  1]  - 1; 
newEnd?[J]  =  GW_END1(j]; 
newEnd2(i]  =  GW_END2Q]; 
newNSJT]  =  GWjTsQ]; 
newTag  [i]  =  GW  ITGft]; 
newRadfi]  =  GW  RAD0); 

> 

XtFree  ((char*)  GW  END1); 

XtFree  ((char  *)  GW_END2); 

XtFree  ((char  *)  GW_NS); 

XtFree  ((char*)  GW  UG); 

XtFree  ((char*)  GW  RAD); 

GW  END1  s  newEndl; 

GW~END2  =  newEnd2; 

GW  NS  =  newNS; 

GW  ITG  =  newTag; 

GW_RAD  =  newRad; 

/*  Update  the  Straight  Wires  window  if  open  7 
updateStraightWireWindow  Q; 

r  Free  array_sort  7 
XtFree_rvector(a  rray_so  rt,  1 ) ; 

/*  Make  compiler  happy  7 
w=  w; 

> 

void  longindsort(n,arhn,indx) 
int  n.indxfl; 
long  arrinQ; 

{ 

int  lIjfir,indxt,i; 
long  q; 

for  (j=1  J<=ny++)  indxQ]=j; 
if  (n  ==  1)  return; 
t=(n  »  1)  ♦  1; 
ir=n; 

forClH 

if0>1) 

q=amn[(indxt=indx(~l])3; 
else  { 

q=amn((indxt=indx[ir])]; 
indxfir]=indx(1]; 
if  (— *r  =  1)  { 
indx(1]=indxt; 
return; 

> 

) 

1=1; 
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j=l « 1; 
while  Q  <=  ir)  { 

if  0  <  ir  &&  arrin[indx[flj  <  amn(lndxO+1ID  j++; 
if  {q  <  arrinfindxtilJ)  { 
indx(i]=indxQ]; 
j  +=  (*=j); 

> 

dsej=ir+1; 

> 

indx(il=indxt; 

} 

> 

void  nrefTor(error_text) 
char  error_textfl; 
r  standard  error  handler  7 
{ 

void  exrtQ; 

fprintf(stderr, "Run-time  error..  .\n"); 
fprintf(stderT1"%s\n“,error_text); 
fprintf(stderr,  "...now  exiting  to  system... \n“); 

> 

float  •vector(nl,nh) 
intnf.nh; 

1*  allocates  a  float  vector  with  range  [nl..nh]  7 

{ 

float  "v; 

v={float  *)XtMalloc((unsigned)  (nh-nl+ 1  )*sizeof (float)); 
if  (Iv)  nrerrorfallocation  failure  in  vectorQ"}; 
return  v-nl; 

} 

int  *rvector(nl,nh) 
int  nl.nh; 

r  allocates  an  int  vector  with  range  [nl..nh]  7 

{ 

int*v; 

v=(int  *)XtMalloc((unsigned)  (nh-nl+1)*sizeof(int)); 
if  (Iv)  nrerrorfallocation  failure  in  ivectorO"); 
return  v-nl; 

> 

long  *lvector(nl,nh) 
intnl.nh; 

1*  allocates  an  long  vector  with  range  [nl..nh]  7 

{ 

long  V 

v=(long  *)XtMalloc((unsigned)  (nh-nl+1  )*stzeof (long)); 
if  (Iv)  nrerrorfallocation  failure  in  IvectorO"); 
return  v-nl; 

> 

void  XtFree_vector(v,nI) 
float  V, 
int  nl; 

r  XtFrees  a  float  vector  allocated  by  vectorO.  7 

{ 

XtFree((char")  (v+nf)); 

> 

void  XtFree_ivector{v(nI) 
int  *v,nl; 

/•  XtFrees  a  int  vector  allocated  by  ivectorO.  7 

{ 

XiFree((char*)  (v+nf)); 

> 

void  XtFree_Jvector(v,nl) 
long  "v; 
int  nl; 

r  XtFrees  a  long  vector  allocated  by  IvectorO-  7 

{ 

XtFree((char*)  (v+nl)); 

> 


A.8  cMeshes.c,  fMeshes.c 


cMeshes.c: 

r 

*  Filename:  cMeshes.c 

*  Callbacks  &  procedures  for  the  Meshes  form 
V 

include  <stdio.h> 

#indude  <stdlib.h> 
include  <math.h> 
include  <X11/lntrinsicP.h> 
include  <X11/ShellP.h> 
include  <Xm/Xm.h> 
include  <Xm/Listh> 
include  <Xm/MessageB.h> 

#indude  <Xm/SelectioB.h> 
include  <Xm/Texth> 
include  “control.  h“ 

#define  LENGTH(x,y,z)  (sqrt((x)*(x)+(y)*(y)+{z)*(z)}) 

extern  Widget  meshesShell,  meshesRowColumn,  mesheslndextabel; 

extern  float  "X,  *Y.  *Z; 

extern  int  *GW_END1 ,  *GW  END2,  ‘GW  NS,  *GWJTG; 
extern  float  *GW_RAD; 
extern  int  "GNJPERF; 

r  variables  for  holding  meshes  data  */ 

static  int*comer1,  *comer2,  *comer3,  *comer4,  *number12,  *number23; 

int  MeshesCount  =  0; 

static  float  *factor, 

static  int  oldSWireCount 

static  int  numNodes,  numWires; 

static  Boolean  okFlag;  /*  If  set,  then  ok  button  was  pressed  V 

extern  void  createMeshes Window  0; 
extern  int  getUstPosition  0; 
extern  int  getListCount  0; 
extern  void  modifyMeshesListAII  0; 

static  void  clearMeshesTextFields  0; 

static  void  continueCB  0; 

static  void  createQuestionOialog  0; 

static  void  createWiresFromlnputs  0; 

static  Boolean  createXmStringFromlnputs  0; 

static  void  getMeshesTextFields  0; 

static  Boolean  plane  Q; 

static  void  removeRedundantttems  0; 

static  void  setEditButtonState  0; 

static  void  stopCB  0; 


static  Boolean  plane  0 

{ 

int  i,  comers  [4J; 

float  drff,  dot,  x,  angle32,  angle43,  angle42, 
xct4],yc[4],zcE4],  dl  [4]; 

Widget  cltext,  c2text,  c3text,  c4text,  dummy; 
char  *c1 ,  *c2,  *c3,  *c4; 

r  Get  text  field  widgets  V 

getMeshesTextFields  (Scltext  &c2text  &c3text,  &c4text,  &dummy, 
&dummy,  &dummy); 

r  Get  the  values  */ 

comers [0]  =  atoi  (cl  =  XmTextGetString  (cltext)); 
comers [1]  =  atoi  (c2  =  XmTextGetString  (c2text)); 
comers  [2]  =  atoi  (c3  =  XmTextGetString  (c3text)); 
comerspj  =  atoi  (c4  =  XmTextGetString  (c4text)); 

XtFree  (cl); 

XtFree  (c2); 

XtFree  (c3); 

XtFree  (c4); 

r  Check  for  comers  with  the  same  node  */ 
if  (comersfO)  =  comers[1])  { 
createMessageDiaiog  (meshesShell,  “Error, 

"Comers  #1  and  #2  cannot  be  equivalent", 
XmDlALOG_ERROR); 

return  (1); 

}  else  if  (comers[1]  —  comers  [2D  { 
createMessageDiaiog  (meshesShell,  "Error", 

“Comers  #2  and  #3  cannot  be  equivalent", 
XmDIALOG_ERROR); 

return  (1); 

)  else  if  (comers(0]  —  comers[2D  { 
createMessageDiaiog  (meshesShell,  “Error", 

"Comers  #1  and  #3  cannot  be  equivalent". 
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XmDIALOG.ERROR); 

return  (1); 

}  else  rf  (comers[0]  =  comers [3]}  { 
createMessageDialog  (meshesShell,  "Error, 

"Comers  #1  and  #4  cannot  be  equivalent", 
XmDIALOG_ERROR); 

return  (1); 

>  els©  if  (comersp]  ==  comerspD  { 
createMessageDialog  (meshesShell,  "Error, 

"Comers  #2  and  #4  cannot  be  equivalent", 
XmDJALOG.ERROR); 

return  (1); 

} 

r  Check  to  see  if  surface  is  flat  (only  if  not  a  triangle)  */ 
if  (comers[2]  !=  comersPD  { 
for  (i  =  0;  i  <  4;  i++)  { 
int  node  =  comers  [f]  - 1 ; 

« (i  >  0)< 

xcrfi]  =  X[nodej  -  xc[0]; 
yc[i]  =  Y[node]  -  yc[0]; 
zc(i]  =  Zfnode]  -  zc[0]; 
dip)  =  LENGTH  (xcpj,  yep],  zefl); 

>else{ 

xc[0]  =  XJnode]; 
ycfO]  =  Y[node]; 
zc[0]  =  Z[nodej; 

> 

> 

r  Rnd  angle  between  comers  3  and  2  V 
dot  =  xc[2]  *  xc[1]  +  yc[2]  *  yc£1]  +  zc[2]  *  zc[1); 
x  =  dot  /  (dl[2] "  dl[1]); 

angle32  =  atan  (-x  /  sqrt  (1  ♦  x"x))  +  M_PI  /  2; 

r  Find  angle  between  comers  4  and  3  */ 
dot  =  xcpj  *  xcf2]  +  yep]  *  yep]  +  zep]  *  zc[2]; 
x  =  dot  /  (dip]  *  dip]); 

angle43  =  atan  (-x  /  sqrt  (1  -  x*x))  +  M_PI  /  2; 

/•  Rnd  angle  between  comers  4  and  2  */ 
dot  =  xcp]  *  xc[1]  +  yep]  *  yc(1]  +  zep]  *  zep]; 
if  (dot  =0) 
angle42  =  M_PI/2; 
else  { 

x  =  dot /(dip]  *  dl(1]); 

angle42  =  atan  (-x  /  sqrt  (1  -  x*x))  +  M  P 1/2; 

> 

diff  =  abs  (angle42  -  (angle43  +  angle32)); 
if  (diff  >  .00001 745)  {  /*  with  .001  degrees  assume  flat  */ 
createMessageDialog  (meshesShell,  "Error, 

"Region  is  not  planar.", 
XmDIALOG_ERROR); 

return  (1); 

> 

} 

return  (0); 

)  r  end  plane  7 


void  openMeshesWindow  0 

{ 

Widget  box,  list 

ShellWidget  sw  =  (ShellWidget)  meshesShell; 

if  (meshesShell  =  NULL) 
createMeshesWindow  0; 
else  if  (sw-> shell.  popped_up) 
return;  /"  Don't  do  anything  if  already  open  V 

XtPopup  (meshesShell.  XtGrabNone); 

box  -  XtNameToWidget  (meshesShell,  “meshesForm.meshesBoxM); 
list  =  XmSelectionBoxGetChild  (box,  XmDI ALOG_LIST) ; 
setEditButtonState  (list); 

)  /*  end  openMeshesWindow  7 

r . . . . . ~~~7 

void  meshesListCB  (w,  dientOata,  cb) 

Widget  w; 

XtPointer  dientData; 

XmUstCallback Struct  "cb; 

{ 

char  comer!  [15],  comer2  [15],  comer3  (15],  comer4  [15], 
numberl  2  [15],  number23  [15],  factor  [15]; 
char  "string; 

Widget  corned  Widget  comer2Widget  comer3Widget  comer4Widget 
numbed  2Widget  number23Widget  factorWidget 

if  (cb->selected_item_count  =  1)  { 
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XmStringGetLtoR  (cb-^selectedJtemsfO],  XmSTRING_OEFAULT_CHARSET.  &string); 
r  Get  text  field  widgets  7 

getMeshesTextFields  (Scomert Widget  &comer2Widget  &comer3Widget 
&comer4Widget  &number!2Widget  &number23Widget 
&factorWidget); 

r  Get  data  &  put  into  text  fields  */ 

sscanf  (string,  "%s  %s  %s  %s  %s  %s  %*",  corner! ,  comer2,  comer3, 
comer4,  number! 2,  numbef23,  factor); 

XmTextSetString  (comerlWidget  corner!); 

XmTextSetString  (comer2Widget  comer2); 

XmTextSetString  (comer3Widget  comer3); 

XmTextSetString  (comer4Widget  comer4); 

XmTextSetString  (number! 2Widget  number!  2); 

XmTextSetString  (number23Widget  number23); 

XmTextSetString  (facto rWidget  factor); 

XtFroe  (string); 

} 

r  Enable  edit  buttons  7 
setEditB utton State  (w); 

dientData  =  dientData;  f*  Make  compiler  happy  7 
>  T  end  meshesListCB  7 

r . . ■*■/ 

static  void  setEditButtonState  (IistWidget) 

Widget  IistWidget 

{ 

Widget  modifyButton.  deleteButton,  comer! Text,  comer2Text, 
comer3Text  comer4Text  numberl  2Text,  number23Text 
factorText  addButton; 
int  index,  count; 

T  Get  the  modify  &  delete  buttons.  7 
modifyButton  =  XtNameToWidget  (meshesShell, 

"meshesForm .  meshes  Box.  woricArea  .modifyButton") ; 
deleteButton  =  XtNameToWidget  (meshesShell, 

‘meshesFoim.meshesBox.  wo  rkArea. deleteButton"); 
addButton  =  XtNameToWidget  (meshesShell, 

"meshesForm. meshes  Box.  workArea.addButton"); 

count  =  getListCount  (IistWidget); 
if  (count  ==  !)  { 

XtSetSensitrve  (addButton,  TRUE); 

XtSetSensitive  (modffyButton.  TRUE); 

XtSetSensitive  (deleteButton.  TRUE); 
index  =  getUstPosibon  (IistWidget); 

}else{ 
index  =  0; 

getMeshesTextFields  (ScomerlText  &comer2Text, 

&comer3Text,  &comer4Text  &number!2Text,  &number23Text, 

SfactorText); 

XmTextSetString  (comer! Text,  *); 

XmTextSetString  (comer2Text  *~); 

XmTextSetString  (comer3Text  "“); 

XmTextSetString  (comer4Text,  “0; 

XmTextSetString  (number! 2Text,  **!"); 

XmTextSetString  (number23Text,  "!**); 

XmTextSetString  (factorText, 
if  (count  >  1)  { 

XtSetSensitive  (addButton.  FALSE); 

XtSetSensitive  (modifyButton,  TRUE); 

XtSetSensitive  (deleteButton,  TRUE); 

> 

else  { 

XtSetSensitive  (addButton,  TRUE); 

XtSetSensitive  (modifyButton,  FALSE); 

XtSetSensitive  (deleteButton,  FALSE); 

> 

> 

XtVaGetVaiues  (IistWidget  XmNitemCounL  &count  NULL); 
updatelndexLabe!  (meshesindexLabei,  index,  count); 

}  r  end  setEditButtonState  7 

r . "*/ 

static  void  getMeshesTextFields  (comer! Text  comer2Text 

comer3Text  comer4Text  number! 2Text  number23Text  areaFactorText) 

Widget  "comer!  Text  *comer2Text  *comer3Text  *comer4Text 
"number! 2Text  *number23Text  "areaFactorText 

{ 

r  Get  the  Meshes  text  fields  7 

"comer! Text  =  XtNameToWidget  (meshesRovX^lumn, "corner!  Text"); 

"comer2Text  =  XtNameToWidget  (meshesRowColumn,"comer2TexT); 

*comer3Text  *  XtNameToWidget  (meshesRowColumn,"comer3Text"); 

*com«r4Text  =  XtNameToWidget  (meshesRowColumn,"comer4TexT); 

"number!  2Text  =  XtNameToWidget  (meshesRowColumn, "number!  2TexT); 
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*number23Text  =  XtNameToWidget  (meshesRowCoIumn,"number23Text"); 
•areaFactorText  =  XtNameToWidget  (me*hesRowColumntHfactorTexT); 

}  r  end  getMeshesTextFieids  */ 

/ . . . . / 

static  Boolean  createXmStringFromlnputs  (xm String) 

XmString  •xmString; 

{ 

Widget  com ert Text,  comer2Text,  comer3Text,  comer4Text, 
number!  2Text,  number23Text,  areaFactorText; 
char  string  [85],  •corned,  *comer2,  *comef3,  *comer4, 

•number! 2,  *number23,  ‘areaFactor; 
intnum12,  num23,  coml,  com 2,  com3,  com4; 
float  factor; 

extern  Boolean  valueCheck  0; 
extern  int  NodeCount; 

getMeshesTextFieids  (&comedText,  &comer2Text,  &comer3Text, 
&comer4Text,  &numbed2Text,  &number23T ext, 
AareaFactorText); 

r  Check  for  invalid  inputs  */ 

coml  =  atoi  (comerl  =  XmTextGetString  (comertText)); 
com2  =  atoi  (comer2  =  XmTextGetString  (comer2Text)); 
com3  -  atoi  (comer3  =  XmTextGetString  (comer3Text)); 
com4  =  atoi  (comer4  =  XmTextGetString  (comer4Text)); 
num12  =  atoi  (number!  2  =  XmTextGetString  (number!  2Text)); 
num23  =  atoi  (number23  =  XmTextGetString  (number23Text)); 
factor  =  atof  (areaFactor  =  XmTextGetString  (areaFactorText)); 
if  (IvaiueCheck  (mesbesShell,  "number  of  patches  from  1  to  T, 
num12>  0)  |J 

IvaiueCheck  (mesh esS hell,  "number  of  patches  from  2  to  3", 
num23  >  0)  || 

IvaiueCheck  (meshesShell,  “comer  1", 

(coml  >  0)  &&  (comt  <=  NodeCount))  H 
IvaiueCheck  (meshesShell,  "comer  2", 

(com2  >  0)  &&  (com 2  <=  NodeCount))  |[ 

IvaiueCheck  (meshesShell,  "comer  3", 

(com2  >  0)  &&  (com3  <=  NodeCount))  || 

IvaiueCheck  (meshesShell,  "comer  3", 

(com 4  >  0)  &&  (com4  <=  NodeCount))) 
return  (False); 

r  Create  a  string  using  inputs  */ 

sprintf  (string,  "%10d%10d%10d%10d%12d%12d%12g". 

comt,  cc m2,  com3,  com4,  num12,  num23,  factor); 

XtFree  ((char  *)  comer!); 

XtFree  ((char  *)  comer2); 

XtFree  ((char  *)  comer3); 

XtFree  ((char  *)  comer4); 

XtFree  ((char  *)  numbed  2); 

XtFree  ((char  *)  number23); 

XtFree  ((char  *)  areaFactor); 

•xmString  =  XmStringCreateSimple  (string); 
return  (True); 

>  r  end  createXmStringFromlnputs  */ 

/ . / 

void  meshesAddButtonCB  (w.  listWidget) 

Widget  w,  listWidget; 

{ 

int  n,  iWirelndex,  count; 

XmString  xmString,  "items; 

Widget  text; 

Arg  args  [2]; 

r  Intrinsic  diagnostics  •/ 
if  (plane  0)  return; 

t *  Create  a  string  from  the  inputs  then  check  for  duplicates  */ 
if  (createXmStringFromlnputs  (&xmString))  { 

r  Get  items  already  in  list  */ 
n  =  0; 

XtSetArg  (args  [n],  XmNitems.  &items);  n++; 

XtSetArg  (args  [nj,  XmNitemCount,  &count);  n++; 

XtGetValues  (listWidget,  args,  n); 

for  (n  =  0;  n  <  count;  n++)  { 
if  (XmStringCompare  (xmString,  items  [n]))  { 
createMessageDialog  (meshesShell,  "Error", 

"Mesh  description  already  in  list", 

XmDIALOG.ERROR); 

return; 

> 

} 

/*  Get  the  current  list  selection  V 
iWirelndex  =  getListPosition  (listWidget)  +  1; 

T  Insert  string  into  list  •/ 
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XmListAddltem  (listWidget  xm String,  iWirelndex); 
XmListSelectPos  (listWidget,  iWirelndex,  TRUE); 
XmStringFree  (xmString); 

T  Move  focus  to  corner!  text  field  7 

text  =  XtNameToWidget  (meshesRovvColumnl"comer1TextM); 
XtSetKeyboardFocus  (meshesShell,  text); 

> 

r  Make  compiler  happy  V 
w  =  w; 

XmListSetPosflistWidget  iWirelndex); 

}  r  end  meshesAddButtonCB  7 

r . / 

void  mesbesModifyButtonCB  (w,  listWidget) 

Widget  w,  listWidget; 

{ 

int  iWirelndex; 

XmString  xmString; 

if  (gettistCount  (listWidget)  >  1)  { 
modifyMeshesListAII  (listWidget); 
setEditButtonState  (listWidget); 
return; 


r  Intrinsic  diagnostics  7 
if  (plane  0)  return; 

r  Create  a  string  from  the  inputs  then  check  for  duplicates  7 
if  (createXmStringFromlnputs  (&xmString))  { 
int  n,  count; 

Arg  args  (2]; 

XmString  'items; 

r  Get  items  already  in  list  7 
n  =  0; 

XtSetArg  (args  [n],  XmNitems,  &items);  n++; 

XtSetArg  (args  [n].  XmNitemCount  &count);  n++; 

XtGetValues  (listWidget,  args,  n); 

for  (n  =  0;  n  <  count;  n++)  { 

if  (XmString Com  pare  (xmString,  items  [n]))  { 
createMessageDialog  (meshesShell,  "Error**, 

"Mesh  description  already  in  list", 
XmDIALOG_ERROR); 

return; 

> 

> 

r  Get  the  current  list  selection  7 
if  (iWirelndex  =  getListPosition  (listWidget))  { 

r  Replace  string  in  list  7 

XmUstReplaceltemsPos  (listWidget  &xm String,  1 ,  iWirelndex); 
XmListSelectPos  (listWidget  iWirelndex,  TRUE); 

XmStringFree  (xmString); 

} 


w  =  w;  r  Make  compiler  happy  7 
}  /*  end  meshesModrfyButtonCB  7 


void  meshesDeleteButtonCB  (w,  listWidget) 

Widget  w,  listWidget; 

{ 

int  iWirelndex; 

int  count  ‘positionList 

T  Clear  the  text  fields  7 
dearMeshesTextFields  0; 

T  Get  the  current  list  selection  7 
if  (iWirelndex  =  getListPosition  (listWidget))  { 

r  Delete  string  in  list  7 

XmUstGetSelectedPos  (listWidget  &positionList  &count); 
XmUstDeletePositions  (listWidget  positionList  count); 
XtFree  ((char  *)positionList); 
setEditButtonState  (listWidget); 

XmListSelectPos  (listWidget  iWirelndex,  TRUE); 
if  (!XmUstPosSelected(!istWidget  iWirelndex)) 
XmListSelectPos  (listWidget  iWirelndex  - 1 ,  TRUE); 

> 

w  =  w;  r  Make  compiler  happy  7 
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}  r  end  meshesDeleteButtonCB  V 


r . . . / 

void  meshesTextCB  (w,  nextText) 

Widget  w,  nextText; 

{ 

XtSetKeyboardFocu*  (meshesShell,  nextText); 
w  =  w;  /•  Make  compiler  happy  */ 

}  Tend  meshesTextCB  V 

r . . . ****** 

*  Save  the  changes  and  dose  the  window. 

7 

void  meshesOkButtonCB  (w,  list) 

Widget  w,  list; 

{ 

extern  void  meshesApplyButtonCB  0; 

meshesApplyButtonCB  (w,  list); 
okFlag  =  True; 
if  (MeshesCount  <=  0) 

XtPopdown  (meshesShelf); 

}  f*  end  meshesOkButtonCB  V 

/ . . . 

*  Save  the  changes  and  leave  window  open. 

7 

void  meshesApplyButtonCB  (w,  list) 

Widget  w,  list; 

{ 

int  i; 

Xm String  ‘items; 

Arg  args  [2]; 
char  msg  [80]; 

extern  int  NodeCount  SWireCount 
extern  Boolean  save  Alert; 

okFiag  =  False; 

P  Get  list  items  &  count  7 
i  =  0; 

XtSetArg  (args  [i],  XmNjtems,  &items);  i++; 

XtSetArg  (args  [i],  XmNitemCount,  &MeshesCount);  i++; 

XtGetValues  (list,  args,  i); 

if  (MeshesCount  <=  0)  return; 

r  Allocate  memory  for  input  values  7 
comerl  =  (int  •)  XtMalioc  (sizeof  (int)  *  MeshesCount); 
comer2  -  (int  *)  XtMalioc  (sizeof  (int)  *  MeshesCount); 
comer3  =  (int  *)  XtMalioc  (sizeof  (int)  *  MeshesCount); 
comer4  =  (int  •)  XtMalioc  (sizeof  (int)  *  MeshesCount); 
number! 2  =  (int  *)  XtMalioc  (sizeof  Ont)  *  MeshesCount); 
number23  =  (int  *)  XtMalioc  (sizeof  (int)  *  MeshesCount); 
factor  =  (float  *)  XtMalioc  (sizeof  (float)  •  MeshesCount); 

r  Fill  arrays  with  input  values  7 
for  0  =  0;  i  <  MeshesCount;  i++)  { 
char ‘string,  cistring  [15],  c2string  [15],  c3string  [15], 
c4string  [15],  n12string  [15],  n23string  [15],  fString  [15]; 

T  Get  data  &  put  into  text  fields  7 

XmStringGetLtoR  OtemsO],  XmSTRING  DEFAULT_CHARSET,  Sstring); 
sscanf  (string,  “%s  %s  %s  %s  %s  %s  %s“, 
cistring,  c2string,  c3string,  c4 string. 
n12string,  n23string,  fString); 
corner!  [i]  =  atoi  (cl  string); 
comer2  [i]  =  atoi  (c2string); 
comer3  [i]  =  atoi  (c3string); 
comer4  [i]  =  atoi  (c4string); 
numbed  2  [i]  =  atoi  (n12string); 
number23  [i]  =  atoi  (n23string); 
factor  p]  =  atof  (fString); 

XtFree  (string); 

} 

r  Save  old  value  for  SWireCount  7 
oldSWireCount  =  SWireCount; 

T  Indicate  to  the  user  the  number  of  nodes  that  will  be  added 

*  (not  used  in  NEC) 

*  Determine  approximation  of  maximum  number  of  nodes  and  number  of 

*  wires  that  will  be  added 
7 

numWires  =  SWireCount; 
numNodes  -  NodeCount; 
for  (i  =  0;  i  <  MeshesCount »++)  { 
numNodes  +=  (number23[i]  +  1)  *  (numbed  2(i]  +  1); 
numWires  ♦=  2  *  numbed  2[i]  *  number23[i]  +  number23[i]  ♦  numbed 2[i]; 
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} 


r  Ask  user  if  this  number  of  wires  should  be  added  */ 
sprintf  (msg, 

"Approximately  %d  wires  will  result \nDo  you  want  to  continue?" , 
numWires  -  SWireCount); 
createQuestionOialog  (msg,  list); 

w  =  w;  r  Make  compiler  happy  7 

save  Alert  =  True; 

}  r  end  meshesApplyButtonCB  7 

r . - . . . 

*  Clear  all  list  items. 

7 

void  meshesResetButtonCB  (w,  list) 

Widget  w,  list; 

{ 

r  Gear  the  list  &  reset  the  list  item  count  7 
XmlistDeleteAllltems  (list); 

Meshes  Count  =  0; 

r  Clear  all  text  fields  &  reset  the  state  of  the  edit  buttons  7 
clearMeshesTextFieids  0; 
setEditSuttonState  (list); 

w  =  w;  r  Make  compiler  happy  7 

)  r  end  meshesResetButtonCB  7 

r . «  I  . a.  / 

static  void  clearMeshesTextFieids  0 

{ 

Widget  comerl,  comer2,  comer3,  comer4, 
number12,  number23,  area  Factor; 

getMeshesTextFields  (Scorned,  &comer2,  &comer3,  &comer4, 

&number12,  &number23,  &areaFactor); 

XmTextSetString  (corned,  ■“); 

XmT extSetStri ng  (comer2,  “); 

XmTextSetString  (comer3,  ""); 

XmTextSetString  (comer4,  “*); 

XmTextSetString  (numbed  2, ""); 

XmTextSetString  (numbei23, 

XmTextSetString  (areaFactor,  "“); 

}  T  end  clearMeshesTextFieids  7 

r . . *************** . 

static  void  createQuestionDialog  (message,  list) 
char  'message; 

Widget  list; 

{ 

Widget  dialog; 

XmString  msg,  yes,  no,  title; 

dialog  =  XmCreateQuestionDialog  (meshesShell,  "dialog",  NULL,  0); 
yes  =  XmStringCreateSimple  ("Yes"); 
no  =  XmStringCreateSimple  ("No"); 

msg  =  XmStringCreateLtoR  (message,  XmSTRING_DEFAULT_CHARSET); 
title  =  XmStringCreateSimple  ("Meshes  Question"}; 

XtVaSetValues  (dialog, 

XmNdialogTitie,  title, 

XmNmessageString,  msg, 

XmNokLabelString,  yes, 

XmNcancelLabelString,  no. 

XmNdialogStyie,  XmDIALOG  FULL_APPLICATlON_MODAL, 
NULL); 

XtUnmanageChild 

(XmMessageBoxGetChild  (dialog,  XmDIALOG_HELP_BUTTON)); 

XtAddCallback  (dialog,  XmNokCallback,  continueCB,  (XtPointer)  list); 
XtAddCallback  (dialog,  XmNcancelCallback,  stopCB,  (XtPointer)  NULL); 

XmStringFree  (yes); 

XmStringFree  (no); 

XmStringFree  (msg); 

XmStringFree  (title); 

XtManageChild  (dialog); 

XtPopup  (XtParent  (dialog),  XtGrabNone); 

)  r  end  createQuestionDialog  7 

t . . . . / 

static  void  continueCB  (w,  list) 

Widget  w.  list; 
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{ 

extern  void  meshesResetButtonCB  0; 

createWiresFromlnputs  0; 
meshesResetButtonCB  (w,  list); 

XtOestroyWidget  (XtParent  (w)); 
if  (okFlag) 

XtPopdown  (meshesShell); 

>  r  end  quesbonCB  V 

. . . . . . f 

static  void  stopCB  (w) 

Widget  w; 

{ 

r  Free  allocated  memory  7 
XtFree  ((char  *)  comerl); 

XlFree  ((char  *)  comer2); 

XtFree  ((char  *)  comer3); 

XtFree  ((char  *)  comer4); 

XtFree  ((char  *)  number12); 

XtFree  ((char  *)  number23); 

XtFree  ((char  *)  factor); 

XtOestroyWidget  (XtParent  (w)); 

}  T  end  questionCB  */ 

r . . . — . / 

static  void  createWiresFrominputs  0 

{ 

int  i,  jn,  jw,  k,  j,  iv,  ih; 

float  radius,  maxradius,  s21x,  s2ty,  s21z,  s23x,  s23y,  s23z, 

s13x,  s13y,  s13z,  112, 123, 131,  si,  s2,  areal,  area2,  areaTotal, 
s34x,  s34y,  s34z,  s41x,  s41y,  s41z,  141, 134, 113, 
xb,  yb,  zb,  xt  yt  zt,  dx,  dy,  dz,  total; 
extern  int  NodeCount,  SWireCount; 

r  Allocate  memory  for  new  nodes  &  new  wires  */ 

X  =  (float  *)  XtRealloc  ((char  *)  X,  sizeof  (float)  *  numNodes); 

Y  =  (float  *)  XtRealloc  ((char  *)  Y,  sizeof  (float)  *  numNodes); 

Z  =  (float  *)  XtRealloc  ((char  *)  Z,  sizeof  (float)  *  numNodes); 

GW_END1  =  (int  •)  XtRealloc  ((char  *)  GW  END1,  sizeof  (int)  *  numWires); 
GW_END2  =  (int  *)  XtRealloc  ((char  *)  GW.EN02,  sizeof  (int)  *  numWires); 
GW_NS  =  (int  *)  XtRealloc  ((char  •)  GW_NS,  sizeof  (int)  *  numWires); 

GW  FTG  =  (int  *)  XtRealloc  ((char  *)  GW_ITG,  sizeof  (int)  *  numWires); 
GW~RAD  =  (float  •)  XtRealloc  ((char  •)  GW_RAD,  sizeof  (float)  *  numWires); 

maxradius  =  0; 

r  Determine  geometry  nodes  for  mesh  V 
for  0  =  0;  i  <  MeshesCount;  i++)  { 
jn  =  NodeCount; 

r  Find  area  of  individual  mesh  region  V 
s21x  =  X(comer2[i]  - 1]  -  X[comer1  [i]  - 1]; 
s21y  =  YIcomer2[i]  - 1]  -  Y(comer1[i]  - 1]; 
s21z  =  Z[com©r2[i]  - 1]  -  Zfcomed  0]  -  1J; 
s23x  =  XJcomer3[i]  - 1]  -  X[comei2  (ij  - 1); 
s23y  =  Y[comer3[i]  - 1)  -  Y[comer2[i]  - 1); 
s23z  =  Z(comer3in  - 1]  -  Z[comer2(i]  - 1]; 
s13x  =  XIcomer3(i]  - 1]  -  Xfcomerl  [i]  - 1); 
si  3y  =  Y[comer3[i]  - 1]  -  Yfcomert  Q]  -  1J; 
s13z  =  Z[comei3[F)  - 1]  -  Z(comed[i]  - 1); 

112  =  LENGTH  (s21x,  s21y,  s21z); 

123  =  LENGTH  (s23x,  s23y,  s23z); 

131  =  LENGTH  (s13x,  s13y,  s13z); 
si  =  (112  +123  +131)/  Z 

areal  =  sqit  (si  *  (si  - 112)  *  (si  - 123)  *  (si  - 131)); 
s34x  =  X(comer3[i]  - 1]  -  X[comer4[i]  -  1J; 
s34y  =  Y[comer3[i]  -  1)  -  Y[comer4[i]  -  1]; 
s34z  =  Z(comer30]  •  1  j  *  Z[comer4[iJ  - 1]; 
s41x  =  X{comer1  [i]  -  1]  -  X[comer4[i]  -  1]; 
s41y  =  Ylcomed[i]  - 1]  -  Y[comer4fi}  - 1); 
s41z  =  Z[comer1  [i]  - 1]  -  Z[comer4[i]  *  1]; 

134  =  LENGTH  (s34x.  s34y,  s34z); 

141  =  LENGTH  (s41x.  s41y,  s41z); 

113=131; 

s2=  (134  +  141  +  113)/ 2; 

area2=  sqrt  (s2  *  (s2  - 134)  *  (s2  - 141)  *  (s2  - 113)); 

areaTotal  =  areal  +  area2; 

a21  x  as  s21x  /  number!  203; 

s21  y  =  *21  y  /  number!  2pJ; 

s21z  =  s21z  /  numbert  201; 

s34x  =  s34x  /  numbed  203; 

s34y  =  s34y  /  numbed  203; 

s34z  =  s34z  /  numbed  2[ij; 

/*  Determine  description  of  geometry  nodes. 

•  dn[j]03  -  dimensions  of  node  (j  =  1 , 2,  3)  i 
7 

for  (ih  =  0;  ih  <=  numbed 203;  ih++)  { 
r  Position  of  bottom  geometry  nodes  7 
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xb  =  Xfcomerl  [i]  - 1]  +  ih  •  s21x; 
yb  =  Y[com©f1[i]  - 1]  *  ih  •  s21y; 

2b  =  Ztcomerl  fi]  - 1  j  +  ih  •  s21z; 
xt  =  X[comer4(i]  - 1]  ♦  ih  #  s34x; 
yt  =  Y[comer4[i]  - 1  j  ♦  ih  *  s34y; 
zt  =  Z(comer4[i]  - 1]  ♦  ih  •  s34z; 
dx  =  {xt  -  xb)  /  number23[i]; 
dy  =  (yt  -  yb)  /  number23[i]; 
dz  =  (zt  -  zb)  /  number23(i]; 
for  (iv  =  0;  iv  <=  number23[i];  iv++)  { 

r  Geometry  nodes  up  from  bottom  node  */ 
XQn]  =  xb  +  iv  •  dx; 

Yfin]  =  yb  ♦  iv  *  dy; 

ZQn]  =  zb  +  iv  *  dz; 
jn++; 

> 


r  Determine  description  of  vertical  &  horizontal  wires  */ 
k=  Nod  ©Count; 
jw  =  SWireCount 
total  =  0; 

for  (ih  =  0;  ih  <=  number12[i];  ih++)  { 
for  (iv  =  1 ;  iv  <=  number23[i];  iv*+)  { 
k++; 

for  (j  =  1;  j  <=  2;  j++){ 
if  (j  “  1)  { 

GW_END1Qw]  =  k; 

GW_END2[jw]  =  k  +  1; 

>  else  if  0  ==  2  &&  ih  <  numberl  2[i])  { 
GW_END1Qw]  =  k; 

GW_END2[jw]  =  k  +  number23[i]  +  1; 

}  else 
break; 

dx  =  XtGW_END20w]  - 1]  -  X[GW_END1  [jw]  - 1); 
dy  =  Y[GW_END2Qw)  - 1]  -  Y[GW_END1  [jw]  - 1  j; 
dz  =  Z[GW_EN D2 [jw]  - 1]  -  2[GW_END1  [jw]  - 1]; 
total  +=  LENGTH  (dx,  dy,  dz); 

}^' 

} 

if  {ih  <  number! 2[i])  { 

GW_END1(jw]  =  k  +  1; 

GW  END2[jw]  =  k  +  number23[i]  ♦  2; 

dx  =  X(GW  END2Bw]  - 1]  -  X[GW_END1[jwJ  - 1]; 

dy  =  Y[GW_END2(jw]  - 1]  -  Y[GW  ENDIpw]  - 1]; 

dz  =  Z [G W_EN D20w]  - 1]  -  Z[GW  END1  [jw]  - 1]; 

total  ♦=  LENGTH  (dx,  dy.  dz); 

jw*+; 

> 

k++; 

) 

T  Set  radii  for  wires  7 

radius  =  factor[i]  *  areaTotal  /  (2  *  M_Pl  *  total); 
if  (radius  >  maxradius)  maxradius  =  radius; 
for  (j  =  0;  j  <  jw;  j++)  GW_RADQ]  =  radius; 

Nod  ©Count  =  jn; 

SWireCount  =  jw; 

} 

/*  Add  unique  nodes  &  wires  to  the  global  arrays  7 
removeRedundantttems  (maxradius); 

}  r  createWiresFromlnputs  7 


static  void  removeRedundantltems  (maxRadius) 
float  maxRadius; 

{ 

int  i,  j,  k; 

float  dx,  dy,  dz,  dd; 

extern  int  NodeCount  SWireCount; 

r  Remove  new  nodes  which  already  exist  7 
for  fi  =  0;  i  <  NodeCount;  i++)  { 
for  (j  =  i  1;  j  <  NodeCount  j++)  { 
dx  =  X[i]-X[D: 

<fy=Y0-YO]; 
dz  =  Z tO-ZO; 
dd  =  LENGTH  (dx,  dy,  dz); 

t*  Eliminate  redundant  nodes  7 
if  (dd  <  maxRadius)  { 
for  (k  =  j;  k  <  NodeCount  - 1;  k++)  { 

X(k]  =  X(k  +  1]; 

YM  =  Y[k  ♦  1]; 

Z[k]  =  ZJk  +  1]; 

> 

NodeCount-; 


P  Correct  nodes  for  wires  7 


for  (k  =  0;  k  <  SWireCount  k++)  { 
if  (GW_END1  [k]  =  j  ♦  1)  GWJEND1  [k]  =  i+  1; 
if  (GW  END2[k]  ==  j  ♦  1)  GW_END2[k]  -  i  +  1 ; 
if  (GW_END1  [k]  >  j  +1)  GW  END1  [k]  =  GW_END1[k]  - 1; 
if  (GW_END2[k]  >  j  +  1)  GW_END2(k]  =  GW_END2(k]  - 1; 

} 

j-.' 

> 

} 

> 

r  Reallocate  arrays  7 

X  =  (float  •)  XtRealloc  ((char  *)  X  sizeof  (float)  *  NodeCount); 

Y  =  (float  •)  XtRealloc  ((char  •)  Y,  sizeof  (float)  *  NodeCount); 

Z  =  (float  *)  XtRealloc  ((char  *)  4  sizeof  (float)  *  NodeCount); 

/*  Biminate  redundant  &  zero  length  wires  &  wires  in  ground  plane  7 
for  (i  =  0;  i  <  SWireCount  i++)  { 
for  0  =  i  +  1;  J  <  SWireCount  j++)  { 
if  ((GW_END1  Q  ==  GW_END2HD  || 

((GN  IPERF(0)  >=  0)  && 

((ZJGW  END1H  =  0)  &&  (Z(GW_END2[i]J  =  0)))  || 

(GW  END1[i]  =  GW_END1Q)  &&  GW_END2[i]  =  GW_END20D  |J 
(GW~END1[i]  =  GW_END2Q]  &&  GW_END2(i]  =  GW_END1[fl))  { 
for  (k  =  j;  k  <  SWireCount  - 1;  k++)  { 

GW  END1  [k]  =  GW_END1  (k  +  1]; 

GW  END2(k]  =  GW  END2[k  +  1]; 

> 

SWireCount-; 

j-; 

> 

> 

} 

r  Reallocate  arrays  7 

GW  END1  =  (int  *)  XtRealloc  ((char  •)  GW_END1 ,  sizeof  (int)  •  SWireCount); 
GWlEND2  =  (int  *)  XtRealloc  ((char  •)  GW_END2,  sizeof  (int)  *  SWireCount); 
GW_fTG  =  (int  *)  XtRealloc  ({char  *)  GWJTG,  sizeof  (int)  *  SWireCount); 

GW  NS  =  0nt  *)  XtRealloc  ((char  •)  GW_NS,  sizeof  (int)  *  SWireCount); 
GwIrAD  =  (float  *)  XtRealloc  ((char  *)  GW_RAD,  sizeof  (float)  *  SWireCount); 

/•  Set  tag  &  segment  number  defaults  7 
for  0  =  old  SWireCount  i  <  SWireCount  i++)  { 

GWJTGp]  =  0; 

GW_NS[i]  =  1; 

> 


fMeshes.c: 

I*  Rename:  fMeshes.c 
•  Procedures  for  creating  the  Meshes  Window 
7 

#indude  "control,  h** 
include  <Xm/Form.h> 
include  <Xm/tabel.h> 
include  <Xm/PushB.h> 
include  <Xm/SelectioB.h> 
include  <Xm/Texth> 

#»nclude  <Xm/RowColumn.h> 

Widget  meshesShell  =  NULL,  meshesRowColumn,  meshesJndexLabel; 

extern  Widget  topLevel; 

extern  XmString  •createMeshesStnngTable  0; 

extern  int  MeshesCount 

r  Forward  declarations  for  callbacks  7 

extern  void  meshesListCB  0; 
extern  void  nodeTextCB  Oi 
extern  void  meshesAddButtonCB  0; 
extern  void  meshesModifyButtonCB  0; 
extern  void  meshesOeleteButtonCB  0; 
extern  void  meshesTextCB  0; 
extern  void  meshesOkButtonCB  0; 
extern  void  meshesApplyButtonCB  0; 
extern  void  meshesResetfiuttonCB  Oi 
extern  void  cancelButtonCB  0; 
extern  void  HighlightText  0; 

static  Widget  meshesCreateSefectonBcx  0; 
static  Widget  meshesCreateWorkArea  O'. 

t - - - - - / 

void  createMeshesWindow  0 

{ 
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Widget  form,  selectionBox,  workArea,  list; 

Arg  args  [10]; 
int  n  =  0; 

XmString  string; 

Position  x,  y; 

extern  void  newEscapeActionO; 

XtTranslateCoords  (topLevel,  (Position)  0,  (Position)  0,  &x,  &y); 

XtSetArg  (args  [n],  XmNx,  x);  n++; 

XtSetArg  (args  [nj,  XmNy,  y+  100);  n++; 
meshesShell  -  XtCreatePopupShell 

fWire  Mesh  Surface**,  topLevelShellWidgetClass,  topLevel,  args,  n); 

newEscapeActicn(meshesShelO; 

form  =  XmCreateForm  (meshesShell,  “meshesForm",  args,  n); 

XtManageChild  (form); 

r  Create  index  label  V 
n  =  0; 

string  =  XmStringCreateSimple  (“Index  0  of  C T); 

XtSetArg  (args  [n],  XmNtabelString,  string);  n«-+; 

XtSetArg  (args  [nj,  XmNleftAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [n],  XmNleftOffset  5);  n++; 

XtSetArg  (args  [nj,  XmNrightAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNrightOffset  5);  n*+; 

XtSetArg  (args  [nj,  XmNtopAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNtopOffset  15);  n++; 
meshesIndexLabel  =  XmCreateLabel  (form,  "indexlabel",  args,  n); 

XtManageChild  (meshesIndexLabel); 

XmStringFree  (string); 

r  Create  selection  box  V 
selectionBox  = 

meshesCreateSelectionBox  (form,  meshesIndexLabel); 

XtManageChild  (selectionBox); 

r  Create  work  area  V 

workArea  =  meshesCreateWorkArea  (selectionBox); 

XtManageChild  (workArea); 

r  Select  current  item  in  selection  box  */ 
if  (MeshesCount)  { 

list  ~  XmSelectionBoxGetChild  (selectionBox,  XmDIALOG_LIST); 

XmListSelectPos  (list,  1,  TRUE); 

} 

}  r  end  create  Meshes  Window  */ 

r . — I 

static  Widget  meshesCreateSelectionBox  (parent  widget) 

Widget  parent  widget 

{ 

Widget  box,  child  [2],  list 

Arg  args  [15]; 

intn; 

XmString  stringl,  string2,  string3; 
char  str  [160]; 

extern  void  newSelectActionTable  0; 

r  Create  toplevel  selection  box  V 
n  =  0; 

sprintf  (str,  "%1 0s%1 0s%1 0s%1 0s%  1 2s%1 2s%1 2s\n%  1 0s%  1 0s%  1 0s%  1 0s%  1 2s%  1 2s%  1 2s“, 
“Node  oT,  “Node  or,  “Node  oT,“Node  oT,  “Number 
"Number  "Area  ",  “Comerl",  "Comer2“,  "Comer3“, 

“Comer4“,  “Comer  1-2“,  “Comer  2-3“,  “Factor); 
stringl  *  XmStringCreateLtoR  (str,  XmSTRING_DEFAULT_CHARSET); 
string2  =  XmStringCreateLtoR  ("Cancer,  XmSTRING_DEFAULT_CHARSET); 
string3  =  XmStringCreateLtoR  (“Reset".  XmSTRlNG_DEFAULT_CHARSET); 

XtSetArg  (args  [n],  XmNshadowThickness,  1);  n++; 

XtSetArg  (args  [nj,  XmNleftAttachment  XmA7TACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNleftOffset  15);  n++; 

XtSetArg  (args  [nj,  XmNrightAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNrightOffset  15);  n++; 

XtSetArg  (args  [nj,  XmNtopAttachment  XmA7TACH_WIDGET);  n++; 

XtSetArg  (args  [nj,  XmNtopWidget  widget);  n++; 

XtSetArg  (args  [nj,  XmNtopOffset  10);  n++; 

XtSetArg  (args  [nj,  XmNbottomAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNbottomOffset  15);  n++; 

XtSetArg  (args  [nj,  XmNlistVisibleltemCount  5);  n++; 

XtSetArg  (args  [nj,  XmNlistLabelString,  stringl);  n++; 

XtSetArg  (args  [nj,  XmNhelpLabelString,  string2);  n++; 

XtSetArg  (args  [nj,  XmNcancelLabelString,  string3);  n++; 

XtSetArg  (args  [nj,  XmNlistVisibleltemCount  5);  n++; 
box  =  XmCreateSelectionBox  (parent  “meshesBok",  args,  n); 

XmStringFree  (stringl); 

XmStringFree  (string2); 

XmStringFree  (string3); 

T  Register  callbacks  for  SelectionBox  list  V 

list  =  XmSelectionBoxGetChild  (box.  XmDIALOG _LIST); 
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n=0; 

XtSetArg (argsfn],  XmNselectionPolicy,  XmEXTENDED_SELECT);  n++; 
XtSetValues(Ust,  args,  n); 

XtAddCailback  (list,  XmNextendedSelectionCallback, 
meshesListCS,  NULL); 
newSelectActionTable  (list); 

r  Unmanage  unneeded  children  V 
n  =  0; 

child  [n++]  =  XmSelectionBoxGetChild  (box,  XmDIALOG_SELECTION_LABEL); 
child  [n++j  =  XmSelectionBoxGetChild  (box,  XmDIALOG_TEXT); 
XtUnmanageChildren  (child,  n); 

child  [0]  =  XmSelectionBoxGetChild  (box,  XmDlALOG_APPLYJ3UTTON); 
XtAddCailback  (child  [0J,  XmNactivateCallback, 
meshesApplyButtonCB,  list); 

XtManageChild  (child  [0]); 

r  Add  callbacks  for  ok,  apply,  reset,  &  cancel  buttons  7 

child  [0]  =  XmSelectionBoxGetChild  (box,  XmDIAlOG_OK_BUTTON); 

XtAddCailback  (child  [0],  XmNactivateCallback, 
meshesOkButtonCB,  list); 

child  {0]  =  XmSelectionBoxGetChild  (box,  XmDIALOG_CANCEL_BUTTON); 
XtAddCailback  (child  JOJ.  XmNactivateCallback, 
meshesResetButtonCB,  list); 

child  [0]  =  XmSelectionBoxGetChild  (box,  XmDIALOG_HELP_BUTTON); 
XtAddCailback  (child  [0],  XmNactivateCallback,  cancelButtonCB,  NULL); 

P  Remove  default  button  V 
n  =  0; 

XtSetArg  (args  [n],  XmNdefaultButton,  NULL);  n++; 

XtSetValues  (box,  args,  n); 

return  (box); 

}  /*  end  meshesCreateSelectionBox  7 

r . . - . — / 

static  Widget  meshesCreateWorkArea  (parent) 

Widget  parent; 

{ 

Widget  box,  rowColumn,  label,  comerlText  comer2Text, 
comer3Text,  comer4Text,  number12Text,  number23Text, 
factorText,  button,  mButton,  list; 

Arg  args  [IQj; 
int  n; 

Xm String  string; 

r  Create  outer  form  box  7 
n  =  0; 

box  =  XmCreateForm  (parent,  “workArea",  args,  n); 

XtManageChild  (box); 

r  Create  RowColumn  box  7 
n  =  0; 

XtSetArg  (args  [n],  XmNleftAttachment,  XmATTACH_FORM);  n++; 

XtSetArg  (args  [n],  XmNleftOffset,  10);  n++; 

XtSetArg  (args  [nj,  XmNtopAttachment,  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNpacking,  XmPACK__COLUMN);  n++; 

XtSetArg  (args  [nj,  XmNnumColumns,  4);  n++; 

XtSetArg  (args  [nj,  XmNorientation.  XmVERTICAL);  n++; 

XtSetArg  (args  [nj,  XmNisAligned,  True);  n++; 

XtSetArg  (args  [nj,  XmNentryAlignment,  XmALIGNMENT_END);  n++; 
rowColumn  =  XmCreateRowColumn  (box,  “rowColumn",  args,  n); 
meshesRowColumn  =  rowColumn; 

XtManageChild  (rowColumn); 

r  Create  Node  of  Comer  1  label  7 
n  =  0; 

string  =  XmStringCreateLtoR  (“Node  of  Comer  1:",  XmSTRING_DEFAULT_CHARSET); 

XtSetArg  (args  [n],  XmNlabelString,  string);  n++; 

label  =  XmCreateLabel  (rowColumn,  “cornerl  Label'*,  args,  n); 

XtManageChild  (label); 

XmStringFree  (string); 

/*  Create  Node  of  Comer  2  label  7 
n  =  0; 

string  =  XmStringCreateLtoR  (“Node  of  Comer  2:“,  XmSTRING_DEFAULT_CHARSET); 

XtSetArg  (args  [n],  XmNlabelString,  string);  n++; 

label  =  XmCreateLabel  (rowColumn,  "comer2Laber,  args,  n); 

XtManageChild  (label); 

XmStringFree  (string); 

r  Create  Node  of  Comer  3  label  7 
n  =  0; 

string  =  XmStringCreateLtoR  (“Node  of  Comer  3:",  XmSTRlNG_DEFAULT_CHARSET); 

XtSetArg  (args  [n],  XmNlabelString,  string);  n++; 

label  =  XmCreateLabel  (rowColumn,  "comer3Label",  args.  n); 

XtManageChild  (label); 

XmStringFree  (string); 
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r  Create  Node  of  Comer  4  label  •/ 
n  =  0; 

string  =  XmStringCreateLtoR  ("Node  of  Comer  4:*,  XmSTRING_DEFAULT_CHARSET); 

XtSetArg  (args  [n],  XmNlabelString,  string);  n++; 

label  a  XmCreateLabel  (rowColumn,  "comer4Label",  args,  n); 

XtManageChild  (label); 

XmStringFree  (string); 

r  Create  Node  of  Comer  1  text  V 
n  =  0; 

XtSetArg  (args  (n],  XmNeditMode,  XmSlNGLEJJNE.EDfT);  n*+; 

XtSetArg  (args  [nj,  XmNcolumns,  1 1);  n++; 

XtSetArg  (args  [nj,  XmNmaxLength,  1);  n++; 

comerlText  =  XmCreateText  (rowColumn,  "comerlTexT,  args,  n); 

XtManageChild  (comerlText); 

/*  Create  Node  of  Comer  2  text  */ 
n  =  0; 

XtSetArg  (args  [nj,  XmNedttMode,  XmSINGLE_LlNE_EDFT);  n++; 

XtSetArg  (args  (nj,  XmNcolumns,  11);  n++; 

XtSetArg  (args  (nj,  XmNmaxLength,  6);  n++; 

comer2T ext  =  XmCreateText  (rowColumn,  "comer2Text",  args,  n); 

XtManageChild  (comer2Text); 

F  Create  Node  of  Comer  3  text  */ 
n  =  0; 

XtSetArg  (args  (n],  XmNeditMode,  XmSINGLE_UNE_EDIT);  n++; 

XtSetArg  (args  [nj,  XmNcolumns,  11);  n*+; 

XtSetArg  (args  (nj,  XmNmaxLength,  11);  n++; 

comer3Text  =  XmCreateText  (rowColumn,  "comer3TexT,  args,  n); 

XtManageChild  (comer3Text); 

r  Create  Node  of  Comer  4  text  V 
n  =  0; 

XtSetArg  (args  [n],  XmNeditMode,  XmSINGLE_UNE_EDIT);  n++; 

XtSetArg  (args  (nj,  XmNcolumns,  11);  n++; 

XtSetArg  (args  [nj,  XmNmaxLength,  11);  n++; 

comer4Text  =  XmCreateText  (rowColumn,  "comer4TexT,  args,  n); 

XtManageChild  (comeMText); 

T  Create  Number  of  Patches  from  Comer  1  to  2  label  */ 
n  =  0; 

string  =  XmStringCreateLtoR  ("Number  of  WiresVn Comer  1  to  Z“, 
XmSTRING_DEFAULT_CHARSET); 

XtSetArg  (args  (n).  XmNlabelString,  string);  n++; 

label  =  Xm  Create  Label  (rowColumn,  "numberl  2Laber,  args,  n); 

XtManageChild  (label). 

XmStringFree  (stnng); 

r  Create  Number  of  Patches  from  Comer  2  to  3  label  */ 
n  =  0; 

string  =  XmStringCreateLtoR  ("Number  of  Wires Vn Comer  2  to  3:", 
XmSTRING_DEFAULT_CHARSET); 

XtSetArg  (args  [n],  XmNlabelString,  string);  n++; 

label  =  XmCreateLabel  (rowColumn,  "number23Laber,  args,  n); 

XtManageChild  (label); 

XmStringFree  (stnng); 

/*  Create  Area  Factor  label  7 
n  =  0; 

string  -  XmStringCreateLtoR  f  Area  Factor",  XmSTRING_DEFAULT_CHARSET); 

XtSetArg  (args  [n],  XmNlabelString,  string);  n++; 

label  =  XmCreateLabel  (rowColumn,  "facto  rLabeP,  args,  n); 

XtManageChild  (label); 

XmStringFree  (string); 

/•  Create  dummy  label  7 
n  =  0; 

label  =  XmCreateLabel  (rowColumn, "  ",  args,  n); 

XtManageChild  (label); 

r  Create  Number  of  Patches  from  Comer  1  to  2  text  7 
n  =  0; 

XtSetArg  (args  [n],  XmNeditMode,  XmS!NGLE_LlNE_EDFT);  n++; 

XtSetArg  (args  [nj,  XmNcolumns,  11);  n++; 

XtSetArg  (args  [nj,  XmNmaxLength,  11);  n++; 

numberl 2Text  =  XmCreateText  (rowColumn,  "numberl  2Text",  args,  n); 

XtManageChild  (numberl 2Text); 

r  Create  Number  of  Patches  from  Comer  2  to  3  text  7 
n  =  0; 

XtSetArg  (args  [n],  XmNeditMode,  XmSINGLEJJNE_EDIT);  n++; 

XtSetArg  (args  [nj,  XmNcolumns,  11);  n++; 

XtSetArg  (args  [nj,  XmNmaxLength,  11);  n++; 

number23Text  =  XmCreateText  (rowColumn,  "number23TexT,  args,  n); 

XtManageChild  (number23Text); 

r  Create  Area  Factor  text  7 
n  =  0; 

XtSetArg  (args  [n],  XmNeditMode,  XmSlNGLE_LINE_ED[T);  n++; 

XtSetArg  (args  [nj,  XmNcolumns,  11);  n++; 

XtSetArg  (args  [nj,  XmNmaxLength,  11);  n++; 

factorText  =  XmCreateText  (rowColumn,  "factorTexT,  args,  n); 
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XtManageChild  (factorText); 


/*  Add  callback*  for  all  text  field*  */ 

XtAdd Call  back  (comerlText  XmNactivateCallback,  meshesTextCB, 
comerZText); 

XtAddCallback  {comerlText  XmNfocusCallback,  HighlightText  NULL); 

XtAdd  Call  back  (comer2Text  XmNactivateCallback,  me*he*TextC8, 
comer3Text); 

XtAddCallback  (comerZIext  XmNfocusCallback,  HighlightText  NULL); 
XtAddCallback  (comer3Text  XmNactivateCallback,  meshesTextCB, 

.  comef4Text); 

XtAddCallback  (comer3Text  XmNfocusCallback,  HighlightText  NULL); 
XtAddCallback  (comer4Text  XmNactivateCallback,  meshesTextCB, 
number!  2Text); 

XtAddCallback  (comer4Text  XmNfocusCallback,  HighlightText  NULL); 
XtAddCallback  (number!  2Text  XmNactivateCallback,  meshesTextCB, 
number23Text); 

XtAddCallback  (number!  2Text  XmNfocusCallback,  HighlightText  NULL); 
XtAddCallback  (number23Text  XmNactivateCallback,  meshesTextCB, 
factorText); 

XtAddCallback  (number23Text  XmNfocusCallback,  HighlightText  NULL); 

T  Create  Add  button.  Put  in  dummy  string  of  6  characters  so  that 

*  this  button  will  be  the  same  size  as  the  others.  Then  reset 

*  label  string. 

V 

n  =  0; 

string  =  XmStringCreateSimple  OoooooO; 

XlSetArg  (args  [n],  XmNlabelString,  string);  n++; 

XtSetArg  (args  [n],  XmNleftAttachment  XmATTACH_WIDGET);  n++; 

XlSetArg  (args  [n],  XmNleftWidget  rowColumn);  n++; 

XtSetArg  (args  [nj,  XmNleftOffset  10);  n++; 

XtSetArg  (args  [nj,  XmNrightAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNrightOffset  10);  n++; 

button  -  XmCreatePushButton  (box,  "addButton",  args  ,n); 

XtManageChild  (button); 

XmStringFree  (string); 

XtAddCallback  (factorText  XmNactivateCallback,  meshesTextCB,  button); 
XtAddCallback  (factorText  XmNfocusCallback,  HighlightText  NULL); 

string  =  XmStringCreateSimple  ("Aden*, 

XtSetArg  (args  [nj,  XmNrecomputeSize,  FALSE);  n++; 

XtSetArg  (args  [nj,  XmNlabelString,  string);  n^; 

XtSetVaiues  (button,  args,  n); 

XmStringFree  (string); 

r  Register  callback  for  add  button.  V 

list  =  XmSelectionBoxGetChild  (parent  XmDIALOGJJST); 

XtAddCallback  (button,  XmNactivateCallback,  meshesAddButtonCB,  list); 

T  Create  Modify  button  V 
n  =  0; 

string  =  XmStringCreateSimple  ("Modify'’); 

XtSetArg  (args  [n],  XmNlabelString,  string);  n++; 

XtSetArg  (args  [nj,  XmNrightAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNrightOffset  10);  n++; 

XtSetArg  (args  [nj,  XmNtop Attachment  XmATTACH_WIDGET);  n++; 

XtSetArg  (args  [nj,  XmNtopWidget  button);  n++; 

XtSetArg  (args  [nj,  XmNtopOffset  10);  n++; 

mButton  =  XmCreatePushButton  (box,  "modifyButton”,  args  ,n); 

XtManageChild  (mButton); 

XmStringFree  (string); 

XtAddCallback  (mButton.  XmNactivateCallback,  meshesModifyButtonCB,  list); 

r  Create  Delete  button  V 
n=  0; 

string  -  XmStringCreateSimple  ("Delete"); 

XtSetArg  (args  [nj,  XmNlabelString,  string);  n++; 

XtSetArg  (args  [nj,  XmNrightAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNrightOffset  10);  n++; 

XtSetArg  (args  [nj,  XmNtopAttachment  XmATTACH_WlDGET);  n++; 

XtSetArg  (args  [nj,  XmNtopWidget  mButton);  n++; 

XtSetArg  (args  [nj,  XmNtopOffset  10);  n++; 

button  =  XmCreatePushButton  (box,  "deleteButton**,  args  ,n); 

XtManageChild  (button); 

XmStringFree  (string); 

XtAddCallback  (button,  XmNactivateCallback.  meshesDeleteButtonCB,  list); 
return  (box); 

}  r  end  meshesCreateWorkArea  */ 
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A.9  fDescrip.c 


fDescrip.c: 

r 

*  Fife  ram© :  fDescrip.c 

•  Procedures  for  creating  the  Description  Summary  window. 

•/ 

#indude  <stdio.h> 

#indude  <stdlib.h> 
include  <math.h> 
include  <time.h> 

#indud©  <*ys/types.h> 

#indude  <X11/lntrinsic.h> 

#mcl ude  <Xm/Xm.h> 

JWndude  <Xm/PanedW.h> 

#indude  <XnVTexth> 
include  "actionArea.h" 
include  "cFileMenu.h" 

#define  minfoy)  ((x  <  y)  ?  (x) :  (y)) 

#define  max(x,y)  ((x  >  y)  ?  (x) :  (y)) 

extern  Widget  topLevei; 

Widget  descripShell  =  NULL; 

Widget  descripText; 

char  freqUnits  0  =  fKHz".  "MHz",  -GHz*}; 

static  char  lineFeed  Q  =  "\n\n"; 

static  void  closeButtonCB  0: 
static  void  describe  Electrical  0; 
static  void  describeGeomefcry  0; 
static  void  describeSolution  0; 
static  void  destroyCB  0; 
static  void  insertDescripText  0; 
static  void  printButtonCB  0; 
int  loHiFreq  0; 

extern  Boolean  isPoppedUp  0; 

r . . . . . 

void  open Descn p Window  0 

{ 

Widget  pane,  actionA; 

Arg  args  [1QJ; 

static  ActionArealtem  actionltemsQ  =  { 

{■Print**,  printButtonCB,  NULL), 

{"Close",  closeButtonCB,  NULL), 

}; 

extern  void  newEscapeActionQ; 

if  (descripShell  !=  NULL  &&  HsPoppedUp(descripShell))  { 
XtDestroyWidget  (descripShell); 
descripShell  =  NULL; 

} 

if  (descripShell  !=  NULL)  return; 

r  Build  the  text  window  */ 
descripShell  =  XtVaCreatePopupShell  (NULL, 
topLevelShellWidgetClass,  topLevei, 

XmNtitle,  "Description  Summary", 

XmNallowShellResize,  True, 

XmNdeleteResponse,  XmDESTROY, 

NULL); 

newEscapeAction(descripShell) ; 

XtSetArg  (args[0),  XmNsashWidth,  1); 

XtSetArg  (args(lj,  XmNsashHeight,  1); 

pane  =  XmCreatePanedWindow  (descripShell,  "pane",  args,  2); 
XtAddCallback  (pane,  XmNdestroyCallback,  destroyCB,  NULL); 
XtManageChild  (pane); 

XtSetArg  (args[0],  XmNrows,  20); 

XtSetArg  (args[lj,  XmNcolumns,  80); 

XtSetArg  (args[2],  XmNed itable,  False); 

XtSetArg  (arysp),  XmNblinkRate,  0); 

XtSetArg  (args(4],  XmNcursorPosition Visible,  False); 

XtSetArg  (args(5],  XmNedttMode,  XmMULH„UNE_EDIT); 

XtSetArg  (args[6],  XmNwordWrap,  True); 

XtSetArg  (args(7],  XmNscrollHorizontal,  False); 
descripText  =  XmCreateScrolledText  (pane,  "text",  args,  8); 
XtManageChild  (descripText); 

1*  Create  the  action  area  7 

actionA  =  createActionArea  (pane,  actionttems,  XtNumber  (actionltems)); 
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XtPopup  (descripShell,  XtGrabNone); 
insertDescripText  (descripText); 

}  /*  end  create  DescripWindow  V 

r . . . ** 

*  Prints  output  to  default  printer. 

****** . ****’** . / 


static  void  printButtonCB  (void) 

< 

RLE  fp; 

char  ’string,  filename  [20],  command  [132]; 
extern  FILE  *efopen  0; 

r  Create  unique  filename  then  open  the  file  */ 
tmpnam  (filename); 

if  ((fp  =  efopen  (filename,  "*0)  ==  NULL) 
return; 

/*  Write  the  text  string  to  the  file  and  print  it  V 
string  =  XmTextGetString  (descripText); 
fprintf  (fp,  *%s",  string); 
f close  (fp); 

sprintf  (command,  "%s  %s",  getenv  (*MOM_PRINT_,TEXr),  filename); 
system  (command); 

remove  (filename); 

XtFree  (string); 

}  r  end  printButtonCB  */ 


static  void  closeButtonCB  (void) 

{ 

XtDestroyWidget  (descripShell); 

}  /*  end  doseButtonCB  V 

static  void  destroyCB  (void) 

{ 

descripShell  =  NULL; 

}  r  end  destroyCB  V 

static  void  insertDescnpText  (text_w) 

Widget  text_w; 

{ 

Boolean  freeMem  =  True; 

char  ’string,  text  (100); 

static  char  noFtlename  Q  =  "untitled"; 

XmTextPosition  position  =  Q; 

time_t  currentTime; 

extern  Widget  inputFilenameText 

extern  Widget  necInputfileText; 

extern  char  ’inputFilename; 

extern  char  ’necInputFilename; 

int  i,  nCM  =  1,  LEN  =  160; 

char  *str  =  NULL; 

r  Output  filename  7 
string  =  inputFilename; 
if  (string  ==  NULL  ||  strlen  (string)  ==  0)  { 
string  =  necInputFilename; 
if  (string  “  NULL  ||  strien  (string)  ==  0)  { 
string  =  noFilename; 
freeMem  =  False; 

> 

} 

sprintf  (text,  TILENAME:  %s\n",  string); 
XmTextinsert  (text_w,  position,  text); 
position  +=  strien  (text); 

r  Output  current  date  and  time  V 
time  (&cu  rrentTime); 

ascftime  (text  "DATE:  %d  %b  %YtnTlME:  %7\n", 
localtime  (&currentTime)); 
XmTextinsert  (text_w,  position,  text); 
position  +=  strien  (text); 

T  Comments  V 
if  (CommentCount)  { 
str  =  XtMalloc(LEN); 
bzero(str,  LEN); 

for  (i  ~  0;  i  <  CommentCount  i++)  { 
str  =  XtRealloc(str,  nCM  •  LEN); 
sfcrcat(strf  CM[i].line); 
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str[str1en(str)]  =  *\n*; 
strtstrten(str)  +  1]  =  *VT; 
nCM++; 

) 

str($trien(str)]  =  “VO*; 

XmTextinsert  (textjw,  position,  lineFeed); 
position  +=  2; 

sprintf  (text,  "%s\n",  "COMMENTS:"); 

JOnTextJnsert  (text_w,  position,  text); 
position  +=  strien  (text); 

XmTextinsert  (text_w,  position,  str); 
position  ♦=  strien  (str); 

Xtfree(stir); 

) 

describeGeometry  (text_w,  &  position); 
describeEiectrical  (text_w,  &position); 
describe  Solution  (text  w,  ^position); 

> 

r . . . . / 

static  void  describeGeometry  (text_w,  position) 

Widget  text_w; 

XmTextPosition  ’position; 

{ 

char  text  [81]; 

int  i,  count,  patches,  wireUnknowns  =  0; 

static  char  ’dimensions  Q  =  f  Meters",  "Centimeters",  "Feet",  "inches’}; 
static  char  ’environments  Q  =  {Tree  Space",  "Ground  Plane"); 
extern  int  Dimlndex,  Envindex; 

/*  Geometry  Description  */ 

sprintf  (text  *Vi\n%s\Mn",  "GEOMETRY  DESCRIPTION:"); 

XmTextinsert  (text_w,  ’position,  text); 

•position  +=  strien  (text); 

sprintf  (text  "Dimension:  %s\n",  dimensions[Dim!ndexI); 

XmTextinsert  (text_w,  ’position,  text); 

•position  +=  strien  (text); 

sprintf  (text  "Environment  %s\n",  environments[Envindex]); 

XmTextinsert  (text_w,  ’position,  text); 

•position  +=  strien  (text); 

if  (SWireCount  |J  TaperWireCount  ||  CWireCount  ||  WireArcCount  || 
HelixOrSpiralCount)  { 

sprintf  (text  "\n%-20s%-20s%s\n",  "Wire  Types",  "Number  of  Wires", 
"Number  of  Segments"); 

XmTextinsert  (text_w,  ’position,  text); 

’position  ♦=  strien  (text); 

) 

/•  Straight  Wires  &  Segments  */ 
if  (SWireCount  >  0)  { 
count  =  0; 

for  (i=0;  i<SWireCount  i++) 
count  ♦=  GW  NS[i]; 

sprintf  (text  "%-20s%8d%22d\n",  "Straight  Wires",  SWireCount  count); 
XmTextinsert  (text_w,  ’position,  text); 

’position  +=  strien  (text); 
wireUnknowns  ♦=  count 

> 

r  Tapered  Wires  &  Segments  */ 
if  (TaperWireCount  >  0)  { 
count  =  0; 

for  (i— 0;  i<TaperWireCount  i++)  { 
if  (GC_lX[i]  ==  2)  { 

float  wireLength,  RD,  x,  y,  z; 

T  Compute  wire  length  V 
x  =  X  [GC_END1  [ifl  -  X  [GC_END2  [i]]; 
x  =  x  *  x; 

y  =  Y  [GC_END1  [ij] -  Y  [GC_END2  [i]]; 

y  =  y*y: 

z  =  2  [GC_END1  (iB  -  2  [GC_END2  pfl; 
z  =  z  ’z; 

wireLength  =  (float)  sqrt  (x  +  y  +  z); 

RD  =  (wireLength  -  GC_DEL1[i])  /  (wireLength  *  GC_DEL2[i]); 
count  ♦=  1  +  (log  (GC_DEL1  [i ]  /  GC_DEL2[i])  /  log  (RD)); 

>  else 

count  ♦=  GC_NS[i]; 

> 

sprintf  (text  "%-20s%8d%22d\n",  Tapered  Wires",  TaperWireCount  count); 
XmTextinsert  (text_w,  ’position,  text); 

•position  +=  strien  (text); 
wireUnknowns  +=  count 

> 

if  (CWireCount  >  0)  { 
count  =  0; 

for  (i=0;  i<CWireCount  i++) 
count  +=  CW_NS[i]; 

sprintf  (text  "%-20s%8d%22d\n".  "Cantenary  Wires",  CWireCount  count); 
XmTextinsert  (textjw.  ’position,  text); 
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•position  +=  strien  (text); 
wireUnknowns  +=  count; 

} 

T  Wire  Arcs  &  Segments  */ 
if  (WireArcCount  >  0)  { 
count  =  0; 

for  0=0;  HWireArcCount;  i++) 
count  +=  GA_NS[i]; 

sprintf  (text,  "%-20s%8d%22d\n",  *Wire  Arc",  WireArcCount  count); 
XmTextinsert  (text_w,  'position,  text); 

•position  ♦=  strien  (text); 
wiroUnknowns  +=  count 

> 

r  Helix  or  Spiral  Wires  &  Segments  */ 
if  (HeiixOrSpiraiCount  >  0)  { 
count  =  0; 

for  (i=0;  i<HelixOrSpiraJCount  i-*+) 
count  +=  GH_NS[ij; 

sprintf  (text  "%-20s%8d%22d\n",  "Helix  or  Spiral", 
HeiixOrSpiraiCount  count); 

XmTextinsert  (text_w,  'position,  text); 

•position  +=  strien  (text); 
wiroUnknowns  +=  count 

> 

/*  Meshes  -  not  implemented  in  this  phase  •/ 

P  Number  of  Surface  Patches  •/ 
patches  =  0; 

if  (MultiplePatchCount  >  0)  { 
for  0=0;  i<MuftipiePatchCount  i++) 
patches  +=  SM  Number12[i]  *  SM_Number23[t]; 

> 

patches  +=  SurfacePatch  Count 

sprintf  (text  "\nNumber  of  Surface  Patches  =  %d\ntn",  patches); 
XmTextinsert  (text_w,  'position,  text); 

•position  +=  strien  (text); 


I*  Number  of  Unknowns  */ 

sprintf  (text  "Number  of  Wire  Unknowns  =  %d\n",  wireUnknowns); 
XmTextinsert  (text_w,  'position,  text); 

'position  +=  strien  (text); 

sprintf  (text  "Number  of  Patch  Unknowns  =  %d\n",  patches  *  2); 
XmTextJnsert  (text_w,  'position,  text); 

•position  +=  strien  (text); 

sprintf  (text  Total  Number  of  Unknowns  =  %d\n\n“, 
wireUnknowns  +  (patches  '  2)); 

XmTextJnsert  (text_w,  'position,  text); 

•position  +=  strien  (text; 


f*  Number  of  Rotations,  Reflections  &  Transformations  V 
rf  (RotationCount  >  0)  { 
count  =  0; 

for  0=0;  i<  RotationCount  i++) 
count  +=  GRJslRp]; 

sprintf  (text  "Number  of  Rotations  =  %d\n",  count); 

)0nTextJnsert  (text_w,  'position,  text); 

'position  +=  strien  (text); 

> 

if  (TransformCount  >  0)  { 
count  =  0; 

for  0=0;  i<TransformCount  »♦+) 
count  ♦=  GM_NRPT[i]; 

sprintf  (text  "Number  of  Transformations  =  %d\n",  count); 
)6nTextJnsert  (text_w,  'position,  text; 

'position  +=  strien  (text; 

> 

if  (ReflectionCount  >  0)  { 
count  =  0; 

for  0=0;  i<ReflectionCount  i++) 
count  |=  GXJXYZfl; 
sprintf  (text  "Reflections:\n"); 

XmTextinsert  (text__w,  'position,  text); 

•position  ♦=  strien  (text; 

sprintf  (text  "  x-axis  =  %s\n",  count  &  0x1  ?  "YES" :  "NO"); 
XmTextJnsert  (text_w,  'position,  text); 

'position  +=  strien  (text); 

sprintf  (text  “  y-axis  =  %s\n",  count  &  0x2  ?  "YES" ;  "NO"); 
XmTextJnsert  (textjw,  'position,  text); 

'position  +=  strien  (text); 

sprintf  (text  "  z-axis  =  %s\n",  count  &  0x4  ?  "YES" :  "NO"); 
JOnTextJnsert  (textjw,  'position,  text); 

•position  +=  strien  (text); 

} 

>  r  end  describeGeometry  */ 

r . - . / 


static  void  describeElectrical  (text_w,  position) 
Widget  toxt_w, 

XmTextPosrtion  ‘position; 
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{ 

char  text  [81]; 
int  i,  count; 

extern  int  Frequencylndex; 

sprintf  (text  "\n\nELECTRICAL  DESCRIPTION:^"); 
)GnTextlnsert  (text_w,  ‘position,  text); 

‘position  ♦=  strien  (text); 

r  Number  of  Frequencies  */ 
count  =  0; 

for  0=0;  i<FrequencyCount  i+,+) 
count  +=  FR_NFRQ[i]; 

sprintf  (text  "Number  of  Frequencies  =  %d\n“,  count); 
XmTextlnsert  (text_w,  ‘position,  text); 

•position  +=  strien  (text); 


/*  Lowest  &  Highest  Frequency  */ 
if  (FrequencyCount  >  0)  { 
float  lo,  hi; 

loHiFreq  (&lo.  &hi); 

sprintf  (text  "Lowest  Frequency  =  %g  %s\n",  lo, 
freqUnits[Frequencylndex]); 

XmTextlnsert  (text_w,  ‘position,  text); 

‘position  ♦=  strien  (text); 
sprintf  (text  "Highest  Frequency  =  %g  %s\n",  hi, 
freqUnits[FrequencyindexD; 

XmTextlnsert  (textjiv,  ‘position,  text); 

‘position  «■=  strien  (text); 

> 

if  (LoadsCount  [|  VottageSourcesCount  ||  IncidentPlaneWaveCount  || 
Transmission LinesCount  ||  TwoPortNetsCount  |j  InsulatedWiresCount)  { 
sprintf  (text  “\n%31s\n".  “Numbed); 

JGnTextJnsert  (text_w,  ‘position,  text); 

•position  ♦=  strien  (text); 

> 

r  Number  of  Loads  7 
if  (LoadsCount  >  0)  { 

sprintf  (text  "%-25s%4d\n",  "Loads",  LoadsCount); 

XmTextlnseft  (text_w,  ‘position,  text); 

‘position  +=  strien  (text); 

) 

r  Number  of  Voltage  Sources  V 
if  (VoltageSourcesCount>  0)  { 

sprintf  (text  "%-25s%4d\n",  "Voltage  Sources",  VottageSourcesCount); 
XmTextlnsert  (text_w,  ‘position,  text); 

‘position  ■*■=  strien  (text); 

> 

r  Number  of  Incident  Plane  Waves  7 
if  (IncidentPlaneWaveCount  >  0)  { 
sprintf  (text  "%-25s%4d\n",  "Incident  Plane  Waves", 
IncidentPlaneWaveCount); 

XmTextlnsert  (text_w,  ‘position,  text); 

‘position  +=  strien  (text); 

} 

r  Number  of  Transmission  Lines  7 
if  (TransmissionLinesCount  >  0)  { 
sprintf  (text  "%-25s%4d\n",  Transmission  Lines", 
TransmissionLinesCount); 

XmTextlnsert  (text_w,  ‘position,  text); 

•position  +=  strien  (text); 

} 

r  Number  of  Two  Port  Networks  7 
if  (TwoPortNetsCount  >  0)  { 
sprintf  (text  "%-25s%4d\n",  Two  Port  Networks", 

TwoPortNetsCount); 

XmTextlnsert  (text_w,  ‘position,  text); 

‘position  +=  strien  (text); 

> 

r  Number  of  Insulated  Wires  7 
if  (InsulatedWiresCount  >  0)  < 
sprintf  (text  "%-25s%4d\n",  "Insulated  Wires", 

InsulatedWiresCount); 

XmTextlnsert  (text_w,  ‘position,  text); 

•position  ♦=  strien  (text); 

> 

r  Ground  type  7 
if  (GroundParamCount  >  0) 
if  ((GN_IPERF[0]  =  0)  ||  (GN_IPERF[0]  =  2))  { 
sprintf  (text  "VnGround  Type:  %s", 

GN_!PERF[0]  ?  "So m me rfeld/Asym ptoti c  method"  : 
"reflection-coefficient  approximation"); 

XmTextlnsert  (textjw,  ‘position,  text); 

•position  +=  strien  (text); 
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} 

}  r  end  describeElectrical  7 


7 


static  void  describeSolution  (text_w,  position) 

Widget  texl_w; 

XmTextPosrtion  'position; 

{ 

int  i,  nearEiectric,  nearMagnetic,  radPattem; 
char  text  [81 J; 

nearEiectric  =  0; 

for  (i  =  0;  i  <  NearBectricCount;  i-*-+) 
nearSectric  +=  NE_NRX[i]  *  NE_NRY[i]  *  NE_NRZ[i]; 
nearMagnetic  =  0; 

for  (i  =  0;  i  <  NearMagneticCourtt;  t++) 
nearMagnetic  +=  NH_NRX[i]  •  NH_NRY[iJ  *  NH_NR2[i]; 
radPattem  -  0; 

for  (i  =  0;  i  <  RadiationPattemCount;  i++) 
radPattem  ♦=  RP_NPH[i)  *  RP__NTH[i]; 

if  (MaxCouplingCount  ||  nearEiectric  j|  nearMagnetic  ||  radPattem)  { 
sprintf  (text  ^SOLUTION  DESCRIPTION:\n\n-); 

XmTextinsert  (text_w,  'position,  text); 

•position  +=  strien  (text); 
sprintf  (text  "%41s\n",  -Number-); 

XmTextinsert  (text_w,  'position,  text); 

•position  ♦=  strien  (text); 
if  (MaxCouplingCount)  { 

sprintf  (text  "%-30s%9d\n",  “Maximum  Coupling  Calculation*1, 
MaxCouplingCount); 

XmTextinsert  (text_w,  'position,  text); 

•position  +=  strien  (text); 

> 

if  (nearEiectric)  { 

sprintf  (text  "%-30s%9d\n",  "Near  Electric  Field",  nearEiectric); 
XmTextinsert  (text_w,  'position,  text); 

'position  ♦=  strien  (text); 

} 

if  (nearMagnetic)  { 

sprintf  (text  "%-30s%9d\n",  "Near  Magnetic  Field",  nearMagnetic); 
XmTextinsert  (text_w,  'position,  text); 

'position  +=  strien  (text); 

} 

if  (radPattem)  { 

sprintf  (text  "%-30s%9d\n",  “Radiation  Pattern",  radPattem); 
XmTextinsert  (text_w,  'position,  text); 

•position  +=  strien  (text); 

> 

}  • 

)  !*  end  describeSolution  7 

. . . . . 

'  Returns  the  lowest  and  highest  frequencies.  Function  returns  0  if 
*  FrequencyCount  is  not  greater  than  zero.  Returns  1 ,  otherwise. 


int  loHiFreq  (lo,  hi) 
float  *lo,  'hi; 

{ 

int  netumValue  =  0,  i; 
float  freq; 

if  (FrequencyCount  >  0)  { 

*lo  =  *hi  =  FR_FMHZ[0]; 

for  (i— 0;  i<FrequencyCount;  i++)  { 

/*  linear  stepping  7 
if  (FR_IFRQ[i]  ==  0) 

freq  =  FR_FMHZ[i]  +  FR_DELFRQ[i]  *  (FR_NFRQ[i]  - 1); 

r  Multiplicative  stepping  7 
else 

freq  =  FR  FMHZftJ '  pow  ((double)  FR  DELFRQ[i], 
(double)  FR_NFRQ[i]  - 1); 

•lo  =  min  (*lo,  freq); 

'hi  =  max  f  hi,  freq); 

retumValue  =  1; 

> 

> 

return  (retumValue); 

}  r  end  loHiFreq  7 
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A.10  cDiagnostics.c,  fDiagnostics.c: 


cDiagnostics.c: 

r  cDiagnostics.c 

* 

*  Callbacks  for  the  Diagnostics  window 
V 


#indude  "control.h" 

#»ndude  "cFileMenu.h" 
include  <stdio.h> 
include  <stdlib.h> 

•include  <math.h> 
include  <X11/lntrinsicP.h> 
include  <X11/ShellP.h> 
include  <Xm/Form.h> 
include  <Xm/Frame.h> 
include  <Xm/Label.h> 
include  <Xm/PanedW.h> 
•include  <Xm/RowColumn.h> 
•include  <Xm/Texth> 
include  <Xm/ToggleB.h> 

extern  Widget  topLevet; 

T  Diagnostics  Window  Widgets  7 


extern  Widget  diagnosticsShell, 

diaglndividualWires,  /*  Check  boxes  for  Geometry  V 

diagWireJunctions,  /*  Diagnostic  options  */ 

diagCrossedWires, 

diaglndividualPatches, 

diagPatchWireJunctions, 

diagWsegmentLength,  /*  Text  boxes  for  geometry  7 

diagWsegRadiusRatiol,  /*  guidelines*/ 

diagWradius, 

diagWsegLengthRatio, 

diagWradiusRatio, 

diagWedgeLength, 

diagWedgeSeg  Ratio, 

diagWedgeRadiusRatio, 

diagEsegmentLength, 

diagEsegRadiusRatiol , 

diagEradius, 

diagEsegLengthRatio, 

diagEradtusRatio, 

diagEwireRadii, 

diagEedgeLength, 

diagEedgeSeg  Ratio, 

diagEedgeRadiusRatio, 

diagGeometry,  /*  Radio  buttons  for  Diagnostic  7 

diagElectrical,  /*  type*/ 

diagText;  /*  Text  widget  for  diagnostics  7 

extern  intNumSegs; 
extern  int  *Jwire; 

int  *tdiag  =  NULL;  /*  Each  element  tells  necDisplay  what 

*  color  to  use  for  each  segment  7 


float  guidelineWamings  [9],  guidelineErrors  [9]; 

static  float  *sSegLength  =  NULL,  f  Straight  wire  segment  lengths  V 
tSegLength  =  NULL,  /*  Tapered  wire  segment  lengths  7 
r  Catenary  wire  segment  lengths  7 
T  Wire  Arc  segment  lengths  7 
r  Helix  or  Spiral  segment  lengths  V 
T  1st  and  last  tapered  segment  7 


*cSegLength  =  NULL, 
•wSeg  Length  =  NULL, 
*hScgLength  “  NULL, 
taperSegl  =  NULL, 
*taperSeg2  =  NULL, 
*tLengthRad  =  NULL, 
•hLengthRad  =  NULL; 
static  float  lowWavelength; 


r  Minimum  length/radius  for  tapers  7 
r  Minimum  length/radius  for  helix  7 
/*  Shortest  wavelength  7 


static  XmTextPosition  lastPosition;  T  Current  position  in  diagText  7 


static  enum  WireTypes  {Straight,  Tapered,  Catenary,  WireArc,  HelixSpiral}; 
static  char  VireNames  Q  =  {‘Straight”,  Tapered",  “Catenary”.  "Wire  Arc", 

"Helix/Spirar>; 


static  void  catenaryWireSegmenttengths  Q; 

static  void  catsoi  0; 

static  void  catexp  0; 

static  void  checkRadiusRatios  0; 

static  void  checkRadiusToWavelength  0; 

static  void  checkSegLengthRatios  0; 

static  void  checkSegLengthToWavelength  0; 

static  void  checkSegLengthToRadius  0; 

static  void  findCoincidentWires  0; 

static  void  findCrossedWires  0; 

static  void  fmdMatchPointErrars  0; 

static  void  runElectricalDiagnostics  0; 

static  void  runGeometryDiagnostics  Q; 
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static  void  runlndrvidualWiresDiagnostics  0; 
static  void  ainWireJunctionsDiagnostcs  0; 
static  void  calculateSegmentLengths  0; 
static  void  taperWireSegmenflLengths  0; 
static  void  wireArcSegmentLengths  0; 
static  void  heiixSpiralSegmentLength*  Ql 

/*  Pointer  into  wireErrors  for  indicting  the  errors  of  wires  */ 

unsigned  long  ’errors; 

unsigned  long  *wire  Errors  =  NULL; 

int  loHiFreq  0; 

r . *********** . . . 

*  Frees  memory  associated  with  diagnostics 
. - . / 


void  diagDestroyCB  (void) 

{ 

XtFree  ((char  *)  sSegLength); 
XtFree  ((char  *)  tSegLength); 
XtFree  ((char  *)  cSegLength); 
XtFree  ((char  •)  taperSegl); 
XtFree  ((char  *)  taperSeg2); 
XtFree  ((char  *)  tLengthRad); 
XtFree  ((char  *)  wSegLength); 
XtFree  ((char  *)  hSegLength); 
XtFree  ((char  *}  hLengthRad); 
XtFree  ({char  *)  Idiag); 

XtFree  ((char  *)  wireErrors); 
sSegLength  =  NULL; 
tSegLength  =  NULL; 
cSegLength  =  NULL; 
taperSegl  =  NULL; 
taperSeg2  =  NULL; 
tLengthRad  =  NULL; 
wSegLength  =  NULL; 
hSegLength  =  NULL; 
hLengthRad  =  NULL; 

Idiag  =  NULL; 
wireErrors  =  NULL; 


)  r  end  diagDestroyCB  7 

r . *»**» . . . — **** 

*  Prints  output  to  default  printer. 

. . . . / 


void  diagPrintButtonCB  (void) 

{ 

FILE  fp; 

char  ’string,  filename  [20],  command  [132]; 
extern  FILE  ’efopen  0; 

P  Create  unique  filename  then  open  the  file  7 
tmpnam  (filename); 

if  {(fp  =  efopen  (filename,  *VO)  ==  NULL) 
return; 

r  Write  the  text  string  to  the  file  and  print  it  7 
string  =  XmTextGetString  (diagText); 
fprintf  (fp.  "%s",  string); 
fciose  (fp); 

sprintf  (command,  "%s  %s",  getenv  (’*MOM_PRINT_TEXr),  filename); 
system  (command); 

remove  (filename); 

XtFree  (string); 

}  /*  end  printButtonCB  7 

/ . ****** . 

*  Callback  for  "visualize"  button. 

. *********7 


void  diagVisuaiizeButtonCB  (void) 

{ 

extern  void  geometryFilter  0; 
extern  void  necDispiay  0; 
extern  char  ’necInputFilename; 
int  type,  source; 

int  i; 

int  wireN  umber, 

float  freq; 
type  =  0; 
source  =  0; 
freq  =  0.0; 

r  Run  geometryFilter  to  calculate  data  needed  for  geomtry  */ 
geometryFilter  0; 

r  now  set  up  Idiag  array  to  describe  wire  segments  color  7 
Idiag  =  (int  *)  XtRealloc  ((char*)  Idiag,  sizeof(int)*NumSegs); 
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for  (i  =  0;  i  <  NumSegs;  i++)  { 
wireNumber  =  Jwire[i]-1 ; 

r  chock  to  see  if  there  are  any  warnings  and/or  errors  on  this  wire  */ 
if  (wireErrors[wireNumberJ  1=  0)  { 
if  ((wireErrorsfwireNumber]  »  5)  !=  0) 
r  errors  */ 

Wiag[i]  =  5; 
else 

/*  warnings  */ 
ldiag[i]  =  4; 

Jelse 
/•ok*/ 
ldiag[i]  =  6; 

} 

necDisplay  (necInputFilename,  type,  source,  freq); 

>  /*  end  diagVisuaiizeButtonCB  V 

r . ****** . . . 

*  Callback  for  "run"  button.  Determines  which  kind  of  diagnostic  that 

•  the  user  wants  to  run,  then  executes  it 

. — . / 


void  diagRunButtonCB  (void) 

{ 

Xtfree  ({char  *)  wire  Errors); 

/*  Allocate  memory  for  storing  errors  &  warnings  associated  with  straight  & 
*  tapered  wires  */ 

wireErrors  =  (unsigned  long  *)  XtCalloc  ((SWireCount+TaperWireCount), 
sizeof{unsigned  long)); 
if  (XmToggleButtonGetState  (diagGeometry)) 
runGeometryDiagnostics  0; 
else 

runElectricalDiagnostics  0; 

}  /*  end  diagRunButtonCB  */ 

r . . ~~ . 

*  Write  diagnostics  to  text  box 

. 


static  void  runGeometryDiagnostics  0 

{ 

char  string  [132]; 
int  numWires; 
float  lo,  hi; 

extern  char  *freqUnits  Q; 
extern  int  Frequencylndex; 
extern  float  FrequenciesScale  D; 

XmT extSetStri n g  (diagText  "GEOMETRY  DIAGNOSTICS^"); 
lastPosition  =  XmTextGetLastPosition  (diagText); 

f*  Output  lowest  &  highest  frequencies  V 
if  (loHiFreq  (&lo,  &hi))  { 

sprintf  (string,  "Lowest  Frequency  =  %g  %s\n“,  lo, 
freqUnits  [Frequencyindex]); 

XmTextjnsert  (diagText,  lastPosition,  string); 
lastPosition  +=  strien  (string); 
sprintf  (string,  "Highest  Frequency  =  %g  %s\n",  hi, 
freqUnits  [Frequencylndex]); 

XmTextinsert  (diagText,  lastPosition,  string); 
lastPosition  +=  strien  (string); 


r  Output  shortest  wavelength  */ 

lowWavelength  =  (299.8  /  hi)  *  FrequenciesScale  [Frequencylndex]; 
sprintf  (string,  "Shortest  wavelength  =  %.6e  meters\n",  lowWavelength); 

XmTextinsert  (diagText  lastPosition,  string); 
lastPosition  +=  strien  (string); 

} 

r  Output  number  of  wires  */ 

numWires  =  SWireCount  +  TaperWireCount  +  CWireCount  +  WireArcCount  + 
HelixOrSpiralCount 

sprintf  (string,  "Number  of  wires  =  %d\n\n"  numWires); 

XmTextinsert  (diagText  lastPosition,  string); 
lastPosition  +=  strien  (string); 

calculateSegmentLengths  (SsSegLength,  SWireCount  GW_NS,  GW_END1,  GW_END2); 
calculateSegmentLengths  (StSegLength,  TaperWireCount 
GCNS,  GC__END1,  GC_END2); 

calculateSegmentLengths  (ScSegLength,  CWireCount  CW_NS,  CW_END1 ,  CWJEND2); 

taperWireSegmentLengths  0; 
catenaryWireSegmentLengths  0; 
wireArcSegmentLengths  0; 
helixSpiralSegmentLengths  0; 

if  (XmToggleButtonGetState  (diaglndividualWires)) 
mnlndividualWiresDiagnostics  0; 

if  (XmToggleButtonGetState  (diagWireJunctions)) 
runWireJunctionsDiagnostics  0; 
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if  (XmToggleButtonGetState  (diagCrossedWires)) 
findCrossedWires  0; 

> 

/ . . . *************** 

*  Diagnostics  for  Individual  Wires 
. . . / 


static  void  runlndividualWiresDiagnostics  0 

{ 

float  errorVaiue,  warning  Value; 
char  next; 

r  Check  segment  length  to  wavelength  */ 
text  =  XmTextGetString  (diagEsegmentLength); 
errorVaiue  =  atof  (text); 

XtFree  (text); 

text  =  XmTextGetString  (diagWsegmentLength); 
warning  Value  =  atof  (text); 

XtFree  (text); 

checkSegLengthToWavelength  (errorVaiue,  wamingValue,  sSegLength, 
SWireCount  "Straight"); 

checkSegLengthToWavelength  (errorVaiue,  wamingValue,  tSegLength, 
TaperWireCount  Tapered"); 

checkSegLengthToWavelength  (errorVaiue,  wamingValue,  cSegLength, 
CWireCount  “Catenary"); 

CheckSegLengthToWavelength  (errorVaiue,  wamingValue,  HSegLength, 
HelbcOrSpiralCount  Helix  or  Spiral"); 
checkSegLengthToWavelength  (errorVaiue,  wamingValue,  wSegLength, 
WireArcCount  “Wire  Arc"); 

r  Check  segment  length  to  radius  */ 

text  =  XmTextGetString  (diagEsegRadiusRatiol); 

errorVaiue  =  atof  (text); 

XtFree  (text); 

text  =  XmTextGetString  (diagWsegRadiusRatiol); 
wamingValue  =  atof  (text); 

XtFree  (text); 

checkSegLengthToRadius  (errorVaiue,  wamingValue,  sSegLength, 
SWireCount,  "Straight",  GW_RAD); 

CheckSegLengthToRadius  (errorVaiue,  wamingValue,  tLengthRad, 
TaperWireCount  "Tapered",  NULL); 

CheckSegLengthToRadius  (errorVaiue,  wamingValue,  cSegLength, 
CWireCount  “Catenary",  CW_RAD); 

CheckSegLengthToRadius  (errorVaiue,  wamingValue,  hLengthRad, 
HelbcOrSpiralCount  "Helix  or  Spiral",  NULL); 
checkSegLengthToRadius  (errorVaiue,  wamingValue,  wSegLength, 
WireArcCount  "Wire  Arc",  GA_RAD); 

r  Check  radius  to  wavelength  */ 
text  =  XmTextGetString  (diagEradius); 
errorVaiue  =  atof  (text); 

XtFree  (text); 

text  =  XmTextGetString  (diagWradius); 
wamingValue  =  atof  (text); 

XtFree  (text); 

checkRadiusToWavelength  (errorVaiue,  wamingValue,  GW_RAD,  NULL, 
SWireCount  "Straighr); 

checkRadiusToWavelength  (errorVaiue,  wamingValue,  GC_RAD1,  GC_RAD2, 
TaperWireCount  Tapered",  NULL); 

checkRadiusToWavelength  (errorVaiue,  wamingValue,  CW_RAD,  NULL, 
CWireCount  “Catenary); 

checkRadiusToWavelength  (errorVaiue,  wamingValue,  GH_WR1,  GH_WR2, 
HelixOrSpiraJ Count  "Helix  or  Spiral"); 
checkRadiusToWavelength  (errorVaiue,  wamingValue,  GA_RAD,  NULL, 
WireArcCount  "Wire  Arc"); 

)  r  end  runlndividualWiresDiagnostics  */ 

r . . . . . . . 

*  Diagnostics  for  Wire  Junctions 


static  void  runWireJunctionsDiag noshes  0 

{ 

int  i; 

float  **minSegs,  **maxRadii; 

r  Check  if  any  of  the  wires  are  coincident  (Two  different  wires 

*  are  connected  to  the  same  set  of  nodes. 

*/ 

findCoinddentWires  0; 

r  Allocate  memory  to  store  smallest  segment  &  largest  radius  for 

*  each  node.  These  arrays  will  be  used  to  calculate  Match  point 

*  errors.  Each  array  index  will  store  three  elements:  value, 

*  wire  type  &  wire  index 

7 

minSegs  =  (float  **)  XtMalloc  (sizeof  (float  •)  *  NodeCount); 
maxRadii  =  (float  **)  XtMalloc  (sizeof  (float  *)  *  NodeCount); 
for  0  =  0;  i  <  NodeCount  f*+)  { 
minSegs[i]  =  (float  *)  XtMalloc  (sizeof  (float)  *  3); 
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maxRadiiQ  =  (float  *)  XtMalloc  (sizeof  (float)  *  3); 

} 

checkSegLengthRatios  (minSegs); 

checkRadiusRatios  (maxRadii); 

find  Match  Pom  tErrors  (maxRadii,  minSegs); 

r  Free  memory  7 

for  (i  =  0;  i  <  NodeCount  i++)  { 

XtFree  ((char  *)  minSegsO); 

XtFree  ((char  *)  maxRadiiQ); 

> 

XtFree  ((char  *)  minSegs); 

XtFree  ((char  *)  maxRadii); 

}  /*  end  runWireJunctionsDiagnostics  7 


*  Check  if  any  of  the  wires  are  coincident  In  other  words,  two 

*  different  wires  are  conected  to  the  same  set  of  nodes. 

. * . / 


static  void  findCoincidentWires  0 

{ 

inti,  j,  k,  *end1,  *end2,  count 
char  "wireType,  string  (81]; 
static  char  sType  Q  =  "Straight"; 
static  char  tType  Q  =  Tapered"; 

Boolean  header  =  True; 

r  Compare  straight  &  tapered  wires  against  themselves  7 
for  (i  =  0;  i  <  2;  i++)  { 
switch  (i)  { 
case  0: 

endl  =  GW_END1 ; 
end2  =  GW_END2; 
count  =  SWireCount 
wireType  =  sType; 
break; 
case  1: 

endl  =  GC  END1; 
end2  =  GC_END2; 
count  =  TapeiWireCount 
wireType  =  tType; 
break; 

} 

for  (j  =  0;  j  <  count  j++)  { 
for  (k  =  j  +  1;  k  <  count  k++)  { 
if  (({endIO]  =  end1[k])  &&  (end2(j]  ==  end2[k]))  || 

((end2D]  ==  end1[k])  &&  (end1Q}==  end2[k])))  { 
if  Reader)  { 

sprintf  (string,  "VnCoincident  wires:\n"); 

)OnTextlnsert  (diagText  lastPosition,  string); 
lastPosition  +=  strien  (string); 
header  =  False; 

} 

if  (wireType  ==  sType)  { 
wireErrorsQ]  \-  CoincidentWireError; 
wireErrorsfk]  |=  CoincidentWireError; 

> 

if  (wireType  =  tType)  { 

wireErrors[SWireCount  +  j]  |=  CoincidentWireError, 
wireErrors[SWireCount  +  k]  |=  CoincidentWireError; 

> 

sprintf  (string,  "%s  %d  %s  %d\n",  wireType,  j+1,  wireType,  k+1); 
XmTextlnsert  (diagText  lastPosition,  string); 
lastPosition  +=  strien  (string); 

> 

} 

> 

} 

r  Compare  straight  wires  against  tapered  wires  7 
for  (i  ss  0;  i  <  SWireCount  i++)  { 
for  (j  =  0;  j  <  TapeiWireCount  j++)  { 
if  (((GW_END1  [i]  ==  GC_END1[i])  &&  (GW_EN02[i]  ==  GC  END2[i]))  || 
((GW_END1[i]  ==  GC_END2[i])  &&  (GW_END2[i)  ==  GC_END1[i])))  { 
if  (header)  { 

sprintf  (string,  "\nCoincident  wires:\n"); 

XhnTextlnsert  (diagText  lastPosition,  string); 
lastPosition  +=  strien  (string); 
header  =  False; 

> 

wireErrorsQ  ]=  CoincidentWireError; 
wireErrors[SWireCount  +  j]  |=  CoincidentWireError, 
sprintf  (string,  "straight  %d  tapered  %d\n“,  H-1,  j+1); 

XmTextlnsert  (diagText  lastPosition,  string); 
lastPosition  +=  strien  (string); 

> 

> 

} 

}  T  end  findCoincidentWires  7 
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Calculate  segment  lengths 


7 


static  void  calculateSegmentLengths  (length,  count,  numSegs,  endl,  end2) 
float  **length;  /•  Array  of  segment  lengths  V 
int  count  /*  number  of  wires  7 

•numSegs,  /•  array  of  number  of  segments  7 

*end1 ,  r  array  of  start  nodes  7 

*end2;  /*  array  of  end  nodes  7 


int  i,  indexl,  index2; 

float  xLength,  yLength,  zLength; 


r  Calculates  only  if  count  is  greater  than  zero  7 
if  (count)  { 

•length  =  (float  *)  XtRealloc  ((char  *)  length,  sizeof  (float)  *  count); 
for  (i  =  0;  i  <  count;  i++)  { 
if  ((numSegsfi]  >  0)  &&  (endl  [i]  <=  NodeCount) 

&&  (end2[i]  <=  NodeCount))  { 
indexl  =  endlp]  - 1; 
index2  =  end2[i]  - 1; 
xLength  =  X(index2]  -  X[index1]; 
ytength  =  Y[index2]  -  Ypndexl  j; 
zLength  =  Z[index2]  -  Zpndexl]; 

(*length)[i]  =  sqrt  (xLength*xLength  +  yLength*yLength  + 
zLength'zLength)  /  numSegs[i]; 

}  else 

(length)  [t]  =  0; 

> 

} 

>  r  end  calculateSegmentLengths  7 


r . . . . . 

*  Calculate  segment  lengths  for  tapered  wires 
. . . / 


static  void  taperWireSegmentLengths  0 

{ 

int  i,  j; 

taperSegl  =  (float  *)  XtRealloc  ((char  *)  taperSegl , 
sizeof  (float)  *  TaperWireCount); 
taperSeg2  =  (float  *)  XtRealloc  ((char  *)  taperSeg2, 
sizeof  (float)  *  TaperWireCount); 
tLengthRad  =  (float  •)  XtRealloc  ((char  *)  tLengthRad, 
sizeof  (float)  *  TaperWireCount); 
for  fi  =  0;  i  <  TaperWireCount  i++)  { 
if  (tSegLengthp]  =  0)  { 
taperSegl  [i]  =  0; 
taperSeg2(i]  =  0; 

)else{ 

float  length,  delta,  taperSeg; 
length  =  tSegLengthfl  *  GC_NS[t]; 

/*  RDEL  is  the  ratio  of  the  length  of  segment  i+1  to  i.  Thus,  if 
*  RDEL  is  one,  then  all  segment  lengths  are  equal. 

7 

if  (GC_RDEL(i)  ==  1)  { 
taperSegl  [i]  =  tSeglengthp); 
taperSeg  2[i]  =  tSegLength[ij; 

}  else  if  (GC  lX{i]  ==  0)  { 

delta  =  (1  -  GC_RDELpD  /  (1  -  pow  (GC_RDEL[i],  GC_NS[iD); 
taperSeg  =  length  *  delta; 
taperSegl  [i]  =  taperSeg; 
if  (GC_NS[i]  >  1)  { 
for  (j  =  0;  j  <  GC_NS[i];  j++) 
taperSeg  *=  GC_RDELp]; 

} 

taperSeg2(i]  =  taperSeg; 

r  DELI  specifies  the  length  of  the  1  st  segment  7 
>  else  if  (GC_lX[i]  ==  1)  { 

if  ((GC_RDEL [i]  >=  length)  ||  (GC_RDEL[i]  <  0)  ||  (GC_NS[i]  ==  1))  { 
taperSegl  [i]  =  0; 
taperSeg2[i]  =  0; 

)  else  { 

float  del,  dnewto,  dnewtl,  rmax,  rd,  dnewt,  omr,  dn,  rdx; 
int  ns,  nxstop; 

del  =  GC  RDELfi]; 
ns  =  GC_NS[i]; 

dnewto -2*  (ns*del4ength)/(derns*(ns*t)); 

dnewtl  =  (4*length*(2-ns)*del*ns*(ns-5))/(3#del*ns*(1-ns)); 

rmax  =  pow  (length/del,  1/(ns-1)); 

rd  =  1; 

nxstop  =  0; 

fix  G  =  0;j<200;j++){ 
if  (rd  >  rmax)  rd  =  rmax; 
dn  =  pow  (rd,  ns); 
if  (abs  (dn-1)  >  0.1)  { 
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omr  =  1  -  rd; 

dnewt  =  -  omr*(length*omr-der(1-dn))/(del*(1-dn-dn*n**omr/rd)}; 
}else 

dnewt  =  dnewto  ♦  dnewtl’(rd-l); 
rd  =  rd  -dnewt; 
it  (nxstop  —  1)  break; 
if  (abs  (dnewt/rd)  <  1  .e-5)  nxstop  =  1 ; 

} 

rdx  =  rd; 

taperSeg  =  del; 

taperSegl  [i]  =  taperSeg; 

for  Q  =  0;  j  <  GC_NS[i];  j++)  taperSeg  *=  rdx; 

taperSeg2[i]  =  taperSeg; 

} 

> 

> 

> 

/*  Determine  the  longest  segment  length  and  the  smallest  segment 
*  length  to  radius  ratio. 

V 

for  (j  =  0;  j  <  TaperWireCount;  j++)  { 
float  ratiol ,  ratio 2; 

tSegLengthQ]  =  taperSegl  Q]  >  taperSeg2[fl  ?  taperSegl Ifl  : 
taperSeg2{fl; 

ratiol  =  taperSegl  Q  /  GC_RAD1[j]; 
ratio2  =  taperSeg2[j]  /  GC__RAD2G]; 
tLengthRadQ]  =  ratiol  <  ratio2  ?  ratiol ;  ratio2; 

> 

}  r  end  taperWireSegmentLengths  */ 


*  Calculate  segment  lengths  of  Catenary  wires 
****** . 


static  void  catenaryWireSegmentLengths  0 

{ 

int  i; 

for  (i  =  0;  i  <  CWireCount  i++)  { 
if  {cSegLength  [i]  >  0)  { 
float  icat 

icat  =  CW_lCAT[i], 
if  (icat  ==  3) 

cSegLength  (?)  =  CW_RHM[i)/CW_NS[i]; 
else  { 

float  xd.  yd.  zd.  rhd.  zhgt  length,  cl,  rh,  ex2,  exrp, 
exrm.  exrs; 
int  indexl.  mdex2; 

indexi  =  CW  END1[i]  - 1; 
index2  =  CW~END2[i]  - 1 ; 
xd  =  X(index2]  -  Xfindexl]; 
yd  =  Y[index2]  -  Yfindexl); 
zd  =  Z[index2]  -  Zfindexl]; 
rhd  =  sqrt  (xd'xd  ♦  yd'yd); 
xd  =  xd  /  rhd; 
yd  =  yd  /  rhd; 
if  (icat  ==  1) 

zhgt  =  CW_ZM[i]  -  2 [indexl]; 
else  if  (icat  ==  2) 

zhgt  =  zd  *  CW_RHM[i]  /  rhd  -  CW_ZM[?]; 
catsol  (rhd,  zd.  CW_RHM[i],  zhgt  &c1 .  &rh); 
if  {(rh  !=  0)  &&  (cl  1=  0))  { 
catexp  (rhd,  rh,  &ex2,  &exrp,  &exmn,  Sexrs); 
length  =  .5  *  (exrp’cl  -  exrm/cl); 

}  else 
length  =  0; 

cSegLength  [i]  =  length  /  CW_NS[i]; 

> 

> 

} 

}  r  end  catenaryWireSegmentLengths  V 


*  Calculate  segment  lengths  of  Wire  Arcs 


static  void  wireArcSegmentLengths  0 

{ 

int  i; 

float  anglel,  angle2,  arcLength; 

wSegLength  =  (float  *)  XtRealloc  ((char  *)  wSegLength, 
sizeof  (float)  *  WireArcCount); 
for  (i  =  0;  i  <  WireArcCount  i++)  { 

r  Convert  angles  from  degrees  to  radians  */ 
anglel  =  GA_ANG1[i]  *  M_PI  / 180; 
angle2  =  GA_ANG2[i]  *  M_PI  / 180; 
arcLength  =  (angle2  -  anglel)  *  GA_RADA[i]; 
wSegLength(i]  =  arcLength  /  GA  NS[i]; 

) 
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}  t*  end  wireArcSegmentLengths  7 


/ . ~ . 

*  Calculate  segment  lengths  of  Helix  or  Spiral  Wires 

. . . / 


static  void  helixSpiralSegmentLengths  0 

< 

int  i,  j; 

float  rad  rat  thmax,  ahbc,  ismall,  hfac,  xl,  yl,  zl ,  x2,  y2,  z2, 
sum,  tine,  thet  hrad,  zhbq 

r  Allocate  memory  for  the  segment  lengths  •/ 
hSegLength  =  (float  *)  XtRealloc  ((char  *)  hSegLength, 
sizeof  (float)  •  HelixOrSpiralCount); 
h  Length  Rad  =  (float  *)  XtRealloc  ((char  •)  hLengthRad, 
sizeof  (float)  *  HelixOrSpiralCount); 

for  (i  =  0;  i  <  HelixOrSpiralCount  i++)  { 

radrat=  pow  ((GH_WR2[i]  /  GH  WR1(i]),  1  /  (GH  NS[i]  - 1)); 
thmax  =  2  *  M_PI  *  tabs  ((double)  GH_TURNS(i]); 
if  (GH  ISPXR  “  0)  {/•  Log  Spiral  •/ 
ahbc  =  pow  ((GH_HR2[i]  /  GH  HR1[i]),  1  /  thmax); 
if  (fabs  (ahlx  - 1)  >  0.02)  { 
ismall  =  0; 

hfac  =  GH_ZLEN[i]  /  (GH_HR2[iJ  /  GH_HR1  [i]  - 1); 

}  else 
ismall  =  1; 

}else 

ahbc  s  (GH_HR2(i]  -  GH_HR1[i])  /  thmax; 
sum  =  0; 

tine  =  thmax  /  GH_NS[i]; 
thet  =  0; 

for  0  =  0;  j  <  GH_NS[i];  j++)  { 
thet  +=  tine; 
if  0  ==  0)  { 
xl  =GH  HRIfl]; 
yl  =0; 
zl  =  0; 

>  else  { 
xl  =x2; 
yl  =  y2; 
z1=z2; 

> 

if  (j  ”  GH  NS[i]  - 1)  { 
hrad  =  GH_HR2[i); 
zhbc  =  GH_ZLEN[i]; 

>else{ 

r  Log  spiral  V 
if  (GHJSPXpl  —  0)  { 
hrad  =  GH_HR1[i]  •  pow  (ahlx,  thet); 
if  (ismall  ==  0) 

zhtx  =  hfac  *  pow  (ahbc,  thet  - 1); 
else 

zhbc  =  GHZLEN[i]  *  (thet  /  thmax)  •  (1  +  .5  *  (ahlx  - 1)  * 

(thet  -  thmax)); 

r  Archimedes  spiral  V 
)  else  { 

hrad  =  GH_HR1[i]  +  ahbc  *  thet 
zhlx  =  GH_ZLEN[i]  •  thet /  thmax; 

} 

} 

x2  =  hrad  •  cos  (thet); 
y2  =  hrad  *  sin  (thet); 
if  (GHJTURNSfl  <  0)  y2  =  -  y2; 
z2  =  zhbq 

sum  +=  sqrt  (pow  (x2  -  xl ,  2)  +  pow(y2-  yl,  2)  ♦  pow(z2-zl,  2)); 

> 

hSegLengthfi]  =  sum  /  GH_NS(i]; 

HLengthRadp]  =  GH_WR1[i]  >  GH_WR2[i]  ?  hSegLengthp]  /  GH_WR1[i]  : 
hSegLength  [i]  /  GH_WR2[i]; 

> 

>  /*  end  HelixSpiralSegmentLengths  */ 


r . 

*  Find  wires  which  violate  specified  guidelines 
. — . . * . / 


r . . . — ■ 

*  Find  wires  which  violate  segment  length  to  wavelength  ratio 

*  guidelines 

. . . 7 

static  void  checkSegLengthToWavelength  (segWaveError,  segWaveWaming, 
seg  Length,  count  wireType) 
float  segWaveError,  segWaveWaming,  “segLength; 
int  count 
char  “wireType; 

{ 

float  segWave; 
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int  i; 

char  string  [80];  . 

extern  float  DimensionsScale  Q; 

Boolean  header  =  True; 

Boolean  saveError; 

r  Record  the  errors  if  wire  is  straight  or  tapered  */ 
if  (Istrcmp  (wireType,  "Straight"))  errors  =  wireErrors; 
if  (Istrcmp  (wireType,  “Straight")  jj  Istrcmp  (wireType,  Tapered**)) 
saveError  =  True; 


saveError  =  False; 


for  0  =  0;  i  <  count  i++)  { 

segWave  =  segLengthji]  *  (DimensionsScale[DimlndexJ  /  lowWaveiength); 
if  (segWave  >  segWaveEnor)  { 
if  (saveError) 

•errors  \~  SegLen2WaveLen  Error; 
r  Show  header  if  not  yet  shown  */ 
if  (header)  { 

sprintf  (string,  "Vn Segment  length  to  wavelength:^**); 

XmTextlnsert  (diagText  lastPosition,  string); 
lastPosrtion  +=  strien  (string); 
header  =  False; 

> 

sprintf  (string,  "Error  -  %s  %d  (%g)\n",  wireType,  i-*-1 1  segWave); 
XmTextlnsert  (diagText  lastPosition,  string); 
lastPosition  +=  strien  (string); 

}  else  if  (segWave  >  segWaveWaming)  { 
if  (saveError) 

•errors  |=  SegLen2WaveLenWaming; 
r  Show  header  if  not  yet  shown  */ 
if  (header)  ( 

sprintf  (string,  "\nSegment  length  to  wavelength:\n"); 

XmTextlnsert  (diagText  lastPosition,  string); 
lastPosition  +=  strien  (string); 
header  =  False; 

> 

sprintf  (string,  "Warning  -  %s  %d  (%g)\nM,  wireType,  i+1,  segWave); 
)OnTextinsert  (diagText  lastPosition,  string); 
lastPosition  +=  strien  (string); 

> 

if  (saveError)  errors**; 

} 

}  r  end  checkSegLengthToWavetength  */ 


*  Find  wires  which  violate  segment  length  to  radius  ratio 

•  guidelines 

. . - . . 

static  void  checkSegLengthToRadius  (segRadError,  segRadWaming, 
segLength,  count  wireType,  radius) 
float  segRadError,  segRadWaming,  ’segLength,  ‘radius; 
int  count 
char  “wireType; 

{ 

float  segRad; 
int  i; 

char  string  [132]; 

Boolean  header  =  True; 

Boolean  saveError; 

1*  Record  the  errors  if  wire  is  straight  or  tapered  */ 
if  (Istrcmp  (wireType,  "Straight"))  errors  =  wireErrors; 
if  (Istrcmp  (wireType,  "Straight")  ]|  Istrcmp  (wireType,  Tapered")} 
saveError "  True; 
else 

saveError  =  False; 

for  0  =  0;  i  <  count  i++)  { 
if  (radius  =-  NULL) 
segRad  =  segLength  [i]; 
else 

segRad  =  segLength  [i]  /  radiusfi]; 
if  (segRad  <  segRadError)  { 
if  (saveError) 

•errors  |=  SegLen2RadiusError; 

/*  Show  header  if  not  yet  shown  V 
if  (header)  { 

sprintf  (string,  "\nSegment  length  to  radius:\n"); 

XmTextinsert  (diagText  lastPosition,  string); 
lastPosition  *=  strien  (string); 
header  =  False; 

> 

sprintf  (string,  "Error  -  %s  %d  (%g)Vn",  wireType,  i+1 ,  segRad); 
XmTextlnsert  (diagText  lastPosition,  string); 
lastPosition  +=  strien  (string); 

>  else  if  (segRad  <  segRadWaming)  { 
if  (saveError) 

•errors  }=  SegLen2RadiusWaming; 

/•  Show  header  if  not  yet  shown  */ 
if  (header)  { 
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sprintf  (string,  "\nSegment  length  to  radius:\n“); 

XmTextinsert  (diagText,  lastPosition,  string); 
lastPosition  +=  strien  (string); 
header  =  False; 

> 

sprintf  (string,  "Warning  -  %s  %d  (%g)\n“,  wireType,  i+1,  segRad); 
XmTextlnsert  (diagText,  lastPosition,  string); 
lastPosition  4=  strien  (string); 

} 

if  (save&rof)  errors44; 

} 

}  r  end  checkSegLengthToRadius  V 

. . . 

*  Find  wires  which  violate  radius  to  wavelength  guidelines 
. V 

static  void  checkRadiusToWavelength  (radWave  Error,  radWaveWaming, 
radiusl ,  radius2,  count,  wireType) 
float  radWave Error,  radWaveWaming,  "radiusl ,  *radius2; 
int  count; 
char  “wireType; 

{ 

float  radius,  radWave; 
inti; 

char  string  [132]; 

Boolean  header  =  True; 

Boolean  save  Error, 

r  Record  the  errors  if  wire  is  straight  or  tapered  */ 
if  (Istrcmp  (wireType,  "Straight"))  errors  =  wireErrors; 
if  (Istrcmp  (wireType,  "Straight")  ]|  Istrcmp  (wireType,  Tapered"}) 
save  Error  =  True; 

else 

saveError  =  False; 

for  (i  =  0;  i  <  count;  i+4)  { 
if  (radius2  ==  NULL) 
radius  =  radiusl  [i]; 
else 

radius  =  radiusl  p]  >  radius2[i]  ?  radiusl [i] :  radius2[i]; 
radWave  =  radius  /  lowWavelength; 
if  (radWave  >  radWaveError)  { 
if  (saveError) 

•errors  [=  Radius2WaveLenErron 
r  Show  header  if  not  yet  shown  */ 
if  (header)  { 

sprintf  (string,  *ViRadius  to  wavelength:\n"); 

XmTextlnsert  (diagText,  lastPosition,  string); 
lastPosition  +=  strien  (string); 
header  =  False; 

> 

sprintf  (string,  "Error  -  %s  %d  (%g)\n"p  wireType,  i+1,  radWave); 
JOnTextinsert  (diagText  lastPosition,  string); 
lastPosition  4=  strien  (string); 

>  else  if  (radWave  >  radWaveWaming)  { 
if  (saveError) 

•errors  |=  Radius2WaveLenWaming; 
r  Show  header  if  not  yet  shown  */ 
if  (header)  { 

sprintf  (string,  ’ViRadius  to  wavelength:\n“); 

XmTextlnsert  (diagText  lastPosition,  string); 
lastPosition  4=  strien  (string); 
header  =  False; 

> 

sprintf  (string,  "Warning  -  %s  %d  (%g)\n"f  wireType,  i+1,  radWave); 
XmTextlnsert  (diagText  lastPosition,  string); 
lastPosition  +=  strien  (string); 

> 

if  (saveError)  errors++; 

> 

}  r  end  checkRadiusToWavelength  7 

•  . . - . . 

•  Find  wires  which  violate  junction  segment  length  ratios  guidelines 


static  void  checkSegLengthRatios  (minSegs) 
float  “minSegs; 

{ 

enum  WireTypes  minType,  maxType; 
int  i,  j,  minlndex,  maxlndex; 

float  ratio,  ratio  Error,  ratioWaming,  minLength,  maxLength; 
Boolean  header  =  True; 
char  "text  string[132]; 

text  =  XmTextGetString  (diagWsegLengthRatio); 
ratioWaming  =  atof  (text); 

XtFree  (text); 

text  =  XmTextGetString  (diagEsegLengthRatio); 
ratioError  =  atof  (text); 

XtFree  (text); 
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for  0  =  0;  i  <  NodeCount;  i++)  { 
minLength  =  1.0e+38; 
maxLength  =  0; 

T  Check  straight  wires  for  ends  which  use  node  i  V 
for  Q  =  0;  j  <  SWireCount  j++)  { 
if  ((GW_END1  [0  ==  i+1)  ||  (GW_END2QJ  ==  i+1))  { 
if  (sSegLengthQ]  <  minLength)  { 
minLength  =  sSegLengthQ]; 
minlndex  =  j; 
minType  =  Straight; 

> 

if  (sSegLengthQ  >  maxLength)  { 
maxLength  =  sSegLengthQ]; 
maxlndex  =  ]; 
maxType  =  Straight; 

> 

> 

} 

F  Check  Tapered  Wires  for  ends  which  use  node  i  •/ 
for  0  =  0;  j  <  TaperWireCount  j++)  { 
if  (GC_END1Q]==  i+1)  { 
if  (taperSegl  Q]  <  minLength)  { 
minLength  =  taperSegl  Q); 
minlndex  -  j; 
minType  =  Tapered; 

> 

if  (taperSegl  0]  >  maxLength)  { 
maxLength  =  taperSegl  [j]; 
maxlndex  -  j; 
maxType  =  Tapered; 

> 

>  else  if  (GCJEND2Q]  =  i+1)  { 
if  (taperSeg2[fl  <  minLength)  { 

minLength  =  taperSeg2Q]; 
minlndex  -  j; 
minType  =  Tapered; 

} 

if  (taperSeg2Q]  >  maxLength)  { 
maxLength  =  taperSeg2Q]; 
maxlndex  =  j; 
maxType  =  Tapered; 

} 

> 

> 

r  Check  Catenary  Wires  for  ends  which  use  node  i  V 
for  Q  =  0;  j  <  CWireCount;  j++)  { 
if  ((CW_END1  Q]  ==  i+1)  II  (CW_END2Q]  ==  i+1))  { 
if  (cSeglengthQ]  <  minLength)  { 
minLength  =  cSegLengthQ; 
minlndex  *  j; 
minType  =  Catenary; 

> 

if  (cSegLengthQ]  >  maxLength)  { 
maxLength  =  cSegLengthQ]; 
maxlndex  =  j; 
maxType  =  Catenary; 

> 

} 

> 

r  Save  smallest  segment  info  V 
minSegsQ][0]  *  minLength; 
minSegs[i]fl)  =  (float)  minType; 
minSegs[i][2]  =  (float)  minlndex; 

r  Compute  ratio  and  check  for  waming/errors  */ 
if  (minLength  >  0) 
ratio  =  maxLength  /  minLength; 
else 

ratio  =  0; 

if  (ratio  >  ratioError)  { 
if  (header)  { 

sprintf  (string,  *V»J  unction  segment  length  ratios:\n"); 

XmTextJnsert  (diagText  lastPosition,  string); 

‘  lastPosition  +=  strien  (string); 
header  =  False; 

> 

if  (minType  ==  Straight)  wireErrorsfminlndex]  |=  JunctionSegLenRatioError; 

if  (minType  =  Tapered)  wireErrors(SWireCount  +  minlndex]  |=  JunctionSegLenRatioError; 

if  (maxType  ==  Straight)  wireErrors[maxJndex]  |=  JunctionSegLenRatioError; 

if  (maxType  =  Tapered)  wireErrors[SWi reCount  +  maxlndex]  |=  JunctionSegLenRatioError, 

sprintf  (string,  “Error  *  node  %d  %s  %d  (%g)  %s  %d  (%g )\n“, 

i+1,  wireNames[minType],  minlndex+1,  minLength  /  lowWavelength, 
WJreNames[maxType],  maxlndex+1,  maxLength  /  lowWavelength); 

XmTextJnsert  (diagText,  lastPosition,  string); 
lastPosition  +=  strten  (string); 

)  else  if  (ratio  >  ratioWaming)  { 
if  (header)  { 

sprintf  (string,  "\nJunction  segment  length  ratios:\n"); 

XmTextJnsert  (diagText  lastPosition,  string); 
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lastPosition  +=  strien  (string); 
header  =  False; 

> 

if  (minType  —  Straight)  wire&rors[minlndex]  1=  JunctionSegLenRatioWaming; 

if  (minType  —  Tapered)  wireErrorsfSWireCount  +  minlndex]  |=  JunctionSegLenRatioWaming; 

if  (maxType  =  Straight)  wireErrors[maxlndex)  |=  JunctionSegLenRatioWaming; 

if  (maxType  —  Tapered)  wireErrors(SWireCount  +  maxindex]  |=  JunctionSegLenRatioWaming; 

sprintf  (string,  "Warning  -  node  %d  %s  %d  (%g),  %s  %d  (%g)\n*, 

i+1,  wireNames{minType],  minlndex+1,  minLength  /  towWavelength, 
wireNames [maxType],  rrwudndex+1,  maxLength  /  iowWaveJength); 

XmTextlnsert  (diagText,  lastPosition,  string); 
lastPosition  +=  strien  (string); 

> 

if  (maxLength  —  0)  { 

sprintf  (string,  "node  %d  -  no  wires  connectedVn",  i); 

XmTextinsert  (diagText  lastPosition,  string); 
lastPosition  ♦=  strien  (string); 

> 

} 

>  r  end  checkSegLength Ratios  V 

r . . . 

*  Find  wires  which  violate  junction  radius  ratios  guidelines 

. . . . . . / 


static  void  checkRadiusRatios  (maxRadii) 
float  **maxRadii; 

{ 

enum  WireTypes  minType,  maxType; 
int  i,  j,  minlndex,  maxindex; 

float  ratio,  ratioError,  ratioWaming,  minRadius,  maxRadius; 
Boolean  header  -  True; 
char  text  stringf132); 

text  =  XmTextGetString  (diagWradiusRatio); 
ratioWaming  =  atof  (text); 

Xtfree  (text); 

text  =  XmTextGetString  (diagEradiusRatio); 
ratioError  =  atof  (text); 

Xtfree  (text); 

for  (i  =  0;  i  <  NodeCount;  i++)  { 
minRadius  =  1.0e+38; 
maxRadius  =  0; 

r  Check  straight  wires  for  ends  which  use  node  i  V 
for  0  =  0;  j  <  SWireCount;  j-*-*-)  { 
if  ((GW_END1 0)  =  i+1)  II  (GW_END2[j]  ==  i+1))  ( 
if  (GW_RADQ]  <  minRadius)  { 
minRadius  =  GW_RAD[fl; 
minlndex  =  j; 
minType  =  Straight; 

> 

if  (GW_RAD|U  >  maxRadius)  { 
maxRadius  =  GW_RADQJ; 
maxindex  =  j; 
maxType  =  Straight; 

> 

} 

> 

r  Check  Tapered  Wires  for  ends  which  use  node  i  7 
for  (j  =  0;  j  <  TaperWireCount;  j++)  { 
if  (GC_END1  Q]  =  i+1)  { 
if  (GC_RAD1[fl  <  minRadius)  { 
minRadius  =  GC_RAD1Q]; 
minlndex  =  j; 
minType  =  Tapered; 

> 

if  (GC_RAD1QJ  >  maxRadius)  { 
maxRadius  -  GC_RAD1Q]; 
maxindex  =  j; 
maxType  =  Tapered; 

> 

>  else  if  (GC_END2[j]  ==  i+1)  { 
if  (GC_RAD2Q]  <  minRadius)  { 
minRadius  =  GC_RAD2(fl; 
minlndex  =  j; 
minType  =  Tapered; 

> 

if  (GC_RAD2|j]  >  maxRadius)  { 
maxRadius  -  GC_RAD2Q]; 
maxindex  =  j; 
maxType  =  Tapered; 

> 

} 

> 

r  Check  Catenary  Wires  for  ends  which  use  node  i  7 
for  Q  =  0;  j  <  CWireCount;  j++)  { 
if  ((CW_END1(fl  ==  i+1)  II  (CW_END2[D  ==;  i+1))  { 
if  (CW_RAD[fl  <  minRadius)  { 
minRadius  =  CW_RADGJ; 
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minlndex  =  j; 
minType  =  Catenary; 

} 

it  (CW_RAD[Q  >  maxRadius)  { 
maxRadius  =  CW_RADQ]; 
maxindex  =  j; 
maxType  =  Catenary; 

} 

> 

) 

r  Save  largest  radius  info  "/ 
maxRadii[i][0]  =  maxRadius; 
maxRadii[i][1]  =  (float)  maxType; 
maxRadii[i][2]  =  (float)  maxindex; 

r  Compute  ratio  and  check  for  waming/enors  */ 
if  (minRadius  >  0) 
ratio  =  maxRadius  /  minRadius; 


ratio  =  0; 

if  (ratio  >  ratioError)  { 
if  (header)  { 

sprintf  (string,  injunction  radius  ratios:\n"}; 

XmTextJnsert  (diagText,  lastPosition,  string); 
lastPosrtion  +-  strlen  (string); 
header  =  False; 

> 

if  (minType  ==  Straight)  wireErTorsfminlndex]  )=  JunctionRadiusRatioError, 

if  (minType  ==  Tapered)  wireErrors(SWireCount  +  minlndex]  |=  JunctionRadiusRatioError; 

if  (maxType  =  Straight  wireEnorsfmaxindex]  |=  JunctionRadiusRatioError; 

if  (maxType  “  Tapered)  wireErrors[SWireCount  +  maxindex]  j=  JunctionRadiusRatioError; 

sprintf  (string,  "Error  -  node  %d  %s  %d  (%g)  %s  %d  (%g)\n", 

H-1 ,  wireNamesfminType],  minlndex+1,  minRadius  /  lowWavelength, 
wireNames[maxType],  maxfndex+1 ,  maxRadius  /  lowWavelength); 

XmTextinsert  (diagText,  lastPosition,  string); 
lastPosition  +=  strlen  (string); 

>  else  if  (ratio  >  ratioWaming)  { 
if  (header)  { 

sprintf  (string,  "\nJunction  radius  ratios:\n"); 

)OnTexdnsert  (diagText,  lastPosition,  string); 
lastPosition  ♦=  strlen  (string); 
header  =  False; 

} 

if  (minType  ==  Straight)  wireErrors[minlndex]  |=  JunctionRadiusRatioWaming; 

if  (minType  ==  Tapered)  wireErrors(SWireCount  +  minlndex]  ]=  JunctionRadiusRatioWaming; 

if  (maxType  ==  Straight)  wireErrorsjmaxJndex]  |=  JunctionRadiusRatioWaming; 

if  (maxType  ==  Tapered)  wireErrors[SWireCount  +  maxindex]  j=  JunctionRadiusRatioWaming; 

sprintf  (string,  "Warning  -  node  %d  %s  %d  (%g),  %s  %d  (%g)\n", 

H-1,  wireNames[minType].  minlndex+1,  minRadius  /  lowWavelength, 
wireNames(maxType),  maxlndex+1,  maxRadius /lowWavelength); 

XmTextinsert  (diagText,  lastPosition,  string); 
lastPosition  +=  strlen  (string); 

} 

if  (maxRadius  ==  0)  { 

sprintf  (string,  "No  wires  connected  -  node  %d\n",  i); 

XmTextinsert  (diagText  lastPosition,  string); 
lastPosition  +=  strlen  (string); 

} 

) 

}  r  end  checkRadiusRatios  */ 


*  Find  match  point  errors.  These  are  found  by  determining  the  largest 

*  radius  and  smallest  segment  at  each  node.  If  the  ratio  of  the 

*  smallest  segment  to  largest  radius  is  less  than  or  equal  to  2.0 
"  then  it  is  a  match  point  error. 

. . — — . / 


static  void  findMatchPointErrors  (maxRadii,  minSegs) 
float  ""maxRadii,  ""minSegs; 

{ 

int  i,  radiusType,  segType; 
float  ratio; 

Boolean  header  =  True; 
char  string  [81]; 

for  0  =  0;  i  <  NodeCount;  i++)  < 

P  Compute  the  ratio  "/ 
if  (maxRadii[i][0]  >  0) 
ratio  *  minSegs[i][0]  /  maxRadii[i][0]; 
else 

ratio  =  0; 

/•  Make  sure  that  the  largest  radius  &  smallest  segment  are  on 
*  different  wires. 

"/ 

if  (maxRadii[i][2)  1=  minSegs[i][2]}  { 
if  (ratio  <=  2.0)  { 
if  (header)  { 

sprintf  (string,  "\nMatch  point  errors;\n“); 

XmTextinsert  (diagText,  lastPosition,  string); 
lastPosition  +=  strlen  (string); 
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header  =  False; 

) 

radiusType  =  (int)  maxRadii[i)[1]; 
segType  =  (int)  minSegs[f)[1]; 
if  (radiusType  =  Straight 

wireErrors{(int)  maxRadii[i][2]]  |=  JunctionMatchPointErrof; 
if  (radiusType  “  Tapered) 

wireErrors(SWireCount  ♦  (int)  maxRadiililPD  1=  JunctionMatchPointError; 
if  (segType  ==  Straight) 

wireEmon»((tnt)  minSegs[i][2fl  |=  Junction  Match  PointEnoc 
if  (segType  ==  Tapered) 

wireEnors[SWireCount  +  (int)  minSegs[i][2I]  f=  JunctionMatchPointError; 
sprintf  (string.  "%s  %d  %s  ttcftn", 

wireNamesfradiusType),  (int)  maxRadii[i][2]  ♦  1. 
wiroNames|segT ypej,  (int)  minSegs[i][2]  ♦I); 

XmTexflnsert  (diagText,  lastPosition,  string); 
lastPosrtion  ♦=  strten  (string); 

} 

> 

} 

}  r  end  findMatchPomtErrors  V 

r . . . - . v 

static  void  catexp  (x,  rh.  exr,  exrp,  exrm,  eras) 
float  x,  rh,  "exr,  *exrp,  *exrm,  ’exrs; 

{ 

float  xr; 

xr  =  x*  rh; 

*exr=exp  (xr); 
if  (abs  (xr)  >  .1)  { 

’exrp  =  (fexr)  -  1)/rh; 

’exrm  =  (1/fexr)  -  1)/rh; 

•exrs  =  (('exrm)  +  f  exrp))/rh; 

}  else  { 

’exrp  =  x  *  ((((8.333333E-3  *  xr  +  .04166667)  *  xr  +  .1666667)  * 
xr  ♦  .5)  *  xr  +  1); 

•exrm  =  x*  ((((-8.333333E-3  *  xr  +  .04166667)  *  xr  -  .1666667)  * 
xr+  .5)  *xr*  1)  ; 

*exrs  =  x  *  X  *  (1  +  .08333333  *  xr  *  xr); 

> 

>  r  end  catexp  7 

r . - . . . . . / 

static  void  catsol  (x2,  y2,  xmx,  ymx,  cl ,  rh) 
float  x2,  y2,  xmx,  ymx,  ’cl ,  *rh; 

{ 

float  xm,  ym,  rhdif,  sqfac,  cp,  nox,  yf,  dyf,  exrx,  exrp,  exrm,  exrs; 
inti; 

xm  =  xmx; 
ym  =  ymx; 

*rh  =  1.0; 
rhdif  =  1.0; 

for  (i  =  0;  i  <  51 ;  i++)  { 
catexp  (x2,  ’rh,  &exrx,  &exrp,  &exrm,  &exrs); 
sqfac  =  sqrt(y2*y2  +  exrs); 
if  (x2  <  0)  sqfac  =  -  sqfac; 

*c1  =  (y2  ♦  sqfac)/exrp; 
if  (abs(rtidif/x2)  <  1.E-5)  break; 
if  0  >-  51)  { 

•rh  =  0; 

•cl  =  0; 
break; 

> 

cp  =  (y2  +  .5*(x2*(exrp-exrm)+2*y2*y2)/sqfac)/exrp  -  x2*exrx*(y2+sqfac)/ 
(exrp’exrp); 

catexp  (xm,  *rh,  &exrx,  &exrp,  &exrm,  &exrs); 
rxrx  =  1/exrx; 

yf  =  .5  *  (exrp  •  (*c1)  +  exrm/(*c1)); 

dyf  =  (-yf  ♦  .5  *  (xm  *  (exrx  *  (*c1)  -  rxrx/(*c1))+  cp  * 

(exrp-exrm/((*c1)  *  (-c1)))))/rrh); 
rhdif  =  (yf-ym)/dyf; 

*rh  =  (*rh)  -  rhdif, 

if  ((*rh)  *  x2  >  50)  *rh  =  50  /  x2; 

> 

)  r  end  catsol  7 


static  void  findCrossedWires  (void) 

{ 

char  string  [81],  *text; 

int  i,  j,  k,  I,  wlnodel,  w1node2,  w2node1,  w2node2, 

•wlendl,  *w1end2,  *w2end1,  V2end2; 
float  dx2,  dy2,  dz2,  radiusl,  radius2,  minDistance,  dxl.dyl.dzl, 
errorValue,  crossx,  crossy,  crossz,  vl.  mil,  m12,  v2,  m21,  m22, 
mdet,  w,  uu,  xx,  yy,  zz,  distance; 

Boolean  header  =  True; 


T  Get  error  value  7 

text  =  XmTextGetString  (diagEwireRadii); 
errorValue  =  atof  (text); 
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Xtf  ree  (text); 


if  ((SWireCount  ♦  TaperWireCount  <=  0)  ||  (enorValu©  <=  0)) 
return; 

for  (i  =  0;  i  <  (SWireCount  +  TaperWireCount);  i-**-*-)  { 

if  (i  <  SWireCount)  { 
w2end1  =  GW  END1; 
w2end2  =  GW_END2; 
radius2  =  GW_RAD[i]; 
j  =  »; 

}©lse{ 

w2end1  =  GC  END1; 
w2end2  =  GC_END2; 
j  -  i  -  SWireCount 

radius2  =  (GC  RADI  01  +  GC  RAD20E  /  Z 

> 

r  Compute  incremental  distances  for  wire  two  7 

w2node1  =  w2endt  Q]  - 1; 

w2node2  =  w2end2Q]  - 1; 

dx2  =  X(w2node2]  -  X{w2node1J; 

dy2  =  Y[w2node2]  -  Y[w2node1J; 

dz2  =  Z(w2node2]  -  Z[w2node1]; 

for  (k  *  i;  k  <  (SWireCount  +  TaperWireCount);  k++)  { 

if  (k  <  SWireCount)  { 
wtendl  =  GW  END1; 
w1end2  =  GW  END2; 
radiust  =  GWJRAD[k]; 
t  =  k: 

>else{ 

wlendl  =  GC_END1 ; 
w1end2  =  GC_END2; 

I  *  k  -  SWireCount 

radiusl  =  (GCJRADIp]  +  GC  RAD2p])  /  2; 

} 

T  Minimum  distances  interms  of  radii  of  two  wires  V 
minDistance  =  errorValue  *  (radiusl  +  radius2); 

r  Check  for  junctions  V 

if  ((w2end1[j]  “  wlendl (IJ)  H  (w2end1  Q]  —  wl end2[0)  |] 
(w2end2Q]  ==  wlendl [lj)  j|  (w2end2Q]  **  w1end2[Ij)) 
continue; 

/*  Incremental  distances  for  wire  one  V 
wlnodel  =  wlendl  [I]  - 1; 
wl  node2  =  wl  end2p]  - 1 ; 
dxl  =  X(w1node2]  -  X(vv1node1]; 
dyl  =  Y(w1node2]  -  Y[w1nodelj; 
dzl  =  Z[w1node2]  -  Z[w1node1]; 

t*  Cross  terms  for  wire  one  and  wire  two  7 
crossx  =  X{wtnode1]  -  X[w2node1], 
crossy  -  Y[w1  nodel  j  -  Y[w2node1]; 
crossz  =  Z[w1  nodel]  -  Z[w2node1j; 

r  Use  partial  derivatives  of  distance  square.  Set-up  the  two 

*  equations  in  two  unknowns  (uu,  w).  Partial  derivative  with 

*  respect  to  variable  uu. 

7 

vl  =  -{crossx  *  dxl  +  crossy  *  dyl  +  crossz  *  dzl); 
mil  =  dxl  *  dxl  +  dyl  *  dyl  +  dzl  *  dzl; 
m12  =  -{dx2  *  dxl  +  dy2  *  dyl  +  dz2  *  dzl); 

I*  Partial  derivative  with  respect  to  variable  v  7 
v2  =  -(crossx  *  dx2  +  crossy  *  dy2  +  crossz  *  dz2); 
m21  =  -ml  2; 

m22  =  -{dx2  •  dx2  +  dy2  *  dy2  +  dz2  *  dz2); 

r  Solve  two  equations  in  two  unknows  (uu,  w)  7 
mdet  =  mil  *  m22  -  m12  *  m21; 
if  (fabs(mdet)  <  1.E-10) 
w=  Q; 

else 

w  =  (v2  *  ml  1  -  m21  *  vl)  /  mdet; 

r  Wire  two  is  only  defined  between  w  =  0  to  w  =  1  */ 
if  (w  <  0) 
w  =  0; 

else  if  (w>  1) 
w=  1; 

uu  =  (vl  -  m12  *  w)  /  ml  i; 

/*  Wire  one  is  only  defined  between  uu  =  0  to  uu  =  1  7 
if  (uu  <  0)  { 
uu  =  0; 

if  ((ml  2  1=  0)&&(w  !=  0))  w  =  v1/m12; 


} 

else  H  (uu  >  1)  { 
uu  =  1; 

r 

rf  {(ml 2  !=  0)&&(w  !=  0))  w  =  (vl  -  mil)  /  ml 2; 

7 

> 

r  Find  shortest  distance  between  wires  7 
xx  =  crossx  +  dxl  *  uu  -  dx2  *  w; 
yy  =  cross y  +  dyl  *  uu  -  dy2  •  w; 
zz  =  crossz  +  dzl  *  uu  -  dz2  *  w, 
distance  =  sqrt  (xx’xx+yy'yy  +  zz'z^; 
if  (minDistance  >  distance)  { 
if  (header)  { 

sprintf  (string,  *ViCrossing  wires: \n"); 

XmTextJnsert  (diagText,  lastPosition,  string); 
lastPosition  +=  strien  (string); 
header  =  False; 

) 

wireEnorsp]  1=  CrossedWire  Error; 

wireErrorsfk]  j=  CrossedWireError; 

sprintf  (string,  "  wires  %d  and  %d  cross\n",  i+1,  k+1); 

XmTextJnsert  (diagText  lastPosition,  string); 

lastPosition  +=  strien  (string); 

> 

) 

> 

}  r  end  findCrossedWires  7 


*  The  following  procedure  runs  both  electrical  &  solution  diagnostics. 

*  For  every  LOAD,  VOLTAGE  SOURCE,  TRANSMISSION  LINE,  TWO  PORT  NETWORK, 

*  and  INSULATED  WIRE,  check  that  there  is  a  legitimate  wire  associated  it 

*  In  addition,  check  that  the  radius  of  the  insulation  is  greater  than  the 

*  radius  of  the  insulated  wire. 

*  For  MAXIMUM  COUPLING  CALCULATION,  check  that  the  specified  wires  are 

*  valid.  Determine  if  the  wires  specified  for  print  of  charges  &  currents 

*  are  valid. 

7 

static  void  runEIectricaJDiagnostics  0 

{ 

Boolean  checkPrintTag; 

int  *tag1  (10},  countl  [10],  7ag2  [5],  count2  [5],  i,  j,  k,  I; 

int  printTag  [1]; 

float  Vadiusl  [53,  *radius2  [5]; 

char  string[81); 

char  *label  [10]  =  { 

load".  ’Voltage  source",  "transmission  line",  "transmission  line", 

"two  port  network",  “two  port  network",  “insulated  wire", 

"maximum  coupling",  “maximum  coupling",  "print  option*}; 
char  *wireLabel  [5]  =  { 

"straight  wire",  "tapered  wire",  "catenary  wire",  "wire  arc", 

"helix  or  spriral  wire’}; 

/•Print title  7 

XmTextSetString  (diagText,  "ELECTRICAL/SOLUTION  DlAGNOSTlCS\n\n"); 
lastPosition  =  XmTextGetLastPosition  (diagText); 

r  Initialize  electrical  arrays  7 
tagl  [0]  =  LD  Tag; 
tag1[1]  =  EX  Wire; 
tagl  [2]  =  TL_Wire1; 
tagl  [3]  =  TL_Wire2; 
tagl  [4]  =  NT  Wirel; 
tagl  [5]  =  NT  Wire2; 
tagl  [6]  =  IS  iTAG; 
tagl  [7]  =  CP_TAG1; 
tagl  [8]  =  CP_TAG2; 
tagl  [9]  =  printTag; 
if  (PrintChargeCount) 
printTag[0]  =  PQJPTAQ[0]; 
else 

prinfTagfl)]  =  0; 

countl  [0]  =  LoadsCount 
countl  [1]  =  VoltageSourcesCount 
countl  [2]  =  Transmission  Lines  Count 
countl  [3]  =  TransmissionLinesCount 
countl  [4]  =  TwoPortNetsCount 
countl  [5]  =  TwoPortNetsCount 
countl  [6]  =  InsulatedWiresCount 
countl  [7]  =  MaxCouplingCount 
countl  [8]  =  MaxCouplingCount 
countl  [9]  =  1; 

T  Initialize  Wire  arrays  7 
tag2[0]  =  GW  ITG; 
tag2[1]  =  GCJTG; 


A-98 


tag2[2]  -  CW  ITG; 
tag2[3)  =  GA  ITG; 
tag2[4]  =  GHJTG; 

count2(0]  =  SWiroCount; 
count2[lj  =  TaperWireCount; 
count2[2]  =  CWireCount; 
count2[3]  =  WireArcCount 
count2[4]  =  HelixOrSpiralCount 

r  Initialize  radius  arrays  */ 
radiusl  {0]  =  GW_RAD; 
radiusl  [1]  =  GC_RAD1; 
radiusl  [2]  =  CW  RAD; 
radiusl  [3]  =  GA  RAD; 
radiusl  [4]  =  GHWR1; 

radius2[0]  -  NULL; 
radius2[1J  =  GC.RAD2; 
radius2p]  =  NULL; 
radius2{3]  =  NULL; 
radius2{4]  =  GH_WR2; 

r  Determine  whether  Print  Option  tag  needs  to  be  checked  */ 
if  (PrintChargeCount  &&  PrintCurrentCount) 

checkPrintTag  =  !(PQ_IPTAQ(0]  ==  0)  &&  (PQ_iPTFLQ[0]  =  0  ||  PTJPTFLQ[CJ]  >=  0); 
else 

checkPrintTag  =  False; 

for{i=0;  i<  10;  i++){ 
int  tagAnay  =  taglfl); 

Boolean  checkRadius  =  (i  ==  6)  ?  TRUE  :  FALSE; 

if  (i  =  9  &&  (checkPrintTag)  continue; 

for  Q  =  0;  j  <  countl  [ij;  j++)  { 
float  sheathRadius; 

Boolean  found  =  FALSE; 
int  currentTag  =  tagArrayO]; 

if  (checkRadius)  sheathRadius  =  IS_RADI[fl; 

/*  For  each  wire  type...  */ 
for  (k  =  0;  k  <  5;  k++)  { 
int  “wireTag  =  tag2[kj; 

I*  Rnd  a  wire  whose  tag  values  matches  'currentTag'  7 
for  0  =  0;  I  <  count2[k);  1++)  { 
if  (wtreTagP)  —  currentTag)  { 
found  =  TRUE; 

1*  If  electrical  input  is  insulated  wire  then  make  sure 

*  that  the  radius  of  insulation  is  greater  than  the  radius 

*  of  the  insulated  wire.*/ 
if  (checkRadius)  { 

float  rad,  Vadl  =  radiusl  [kj,  *rad2  =  radius2[kl; 

if  (rad2  ==  NULL) 
rad  =  radlp); 
else 

rad  =  radl  [1]  >  rad2[T]  ?  radl  p] :  rad2p3; 
if  (rad  >=  sheathRadius)  { 

if  (k  ==  Straight)  wireErrorsp)  |=  InvalidSheathRadiusError; 
if  (k  ==  Tapered)  wireErrors[SWireCount  +  l]  j=  InvalidSheathRadiusError; 
sprintf 
(string, 

INVALID  insulated  sheath  radius  specified  fortn  %s  %d\n“. 
wireLabel[k),  1+1); 

XmTextinsert  (diagText  lastPosition,  string); 
lastPosition  +=  strien  (string); 

} 

> 

> 

} 

> 

T  Display  error  message  if  not  found  V 
if  (Ifound)  { 

sprintf  (string,  INVALID  wire  specified  for  %s  %d\n",  labelfi],  j+1); 

XmTextinsert  (diagText  lastPosition,  string); 
lastPosition  +=  strien  (string); 

) 

> 

> 

}  r  end  verifyTags  V 


fDiagnostics.c: 

r 

•fDiagnostics.c 

* 

•  Procedures  for  creating  the  Diagnostics  window 
7 


#mdude  “control. h" 

#indude  <Xm/Form.h> 

#indude  <Xm/Frame.h> 

#indude  <Xm/labei.h> 
include  <Xm/PanedW.h> 

#indude  <Xm/RowColumn.h> 
include  <Xm/Texth> 
include  <Xm/ToggleB.h> 
include  "actionArea.h" 

extern  Widget  topLevel; 

r  Diagnostics  Window  Widgets  7 
Widget  diagnosticsShell  =  NULL, 

diaglndividualWires,  r  Check  boxes  for  Geometry  7 

diagWireJunctions,  r  Diagnostic  options  7 

diagCrossedWires, 

diaglndrvidualPatches, 

diagPatchWireJunctions, 

diagWsegmentLength,  /*  Text  boxes  for  geometry  7 

diagWsegRadiusRatiol ,  /*  guidelines*/ 

diagWradius, 

diagWsegLengthRatio, 

diag  Wradi  usRatio, 

diagWedgeLength, 

diagWedgeSegRatio, 

diagWedgeRadiusRatio, 

diagEsegmentLength, 

diagEsegRadiusRatiol , 

diag  E  radius, 

diag  Eseg  LengthRatio, 

diagEradiusRatio, 

diagEedgeLength, 

diagEwireRadii, 

diagEedgeSegRatio, 

diagEedgeRadiusRatio, 

diagGeometry,  r  Radio  buttons  for  Diagnostic  7 

diagEIectrical,  !*  type  7 

diagText;  /*  Text  widget  for  diagnostics  7 

extern  void  diagDestroyCB  O', 
extern  void  diagRunButtonCB  0; 
extern  void  diagPrintButtonCB  0; 
extern  void  diagVisualizeButtonCB  0; 
static  void  cancelButtonCB  0; 
static  void  createDiagnosticsWindow  0; 
static  Widget  createlnputfields  0; 
static  void  createRunOptions  0; 


void  open  Diagnostics  Window  0 

{ 

if  (diagnosticsShell  ==  NULL)  createDiagnosticsWindow  0; 

r  Clear  the  scrollable  text  widget  7 
XmTextSetString  (diagText, 

XtPopup  (diagnosticsShell,  XtGrabNone); 

> 

r . * . **************/ 

static  void  createDiagnosticsWindow  0 

{ 

Widget  form,  pane,  w; 

Arg  args  [12]; 
int  n  =  0; 

Position  x,  y; 

static  ActionArealtem  actionttemsO  =  { 

{*Run*\  diagRunButtonCB,  NULL}, 

{‘Print’*,  diagPrintButtonCB,  NULL), 

{Visualize",  diagVisualizeButtonCB,  NULL), 

{‘Close’’,  cancelButtonCB,  NULL), 

}; 

extern  void  n ewEscape Action Q; 

XtTransiateCoords  (topLevel,  (Position)  0,  (Position)  0,  &x,  &y); 

XtSetArg  (args  [n],  XmNx,  x);  n++; 

XtSetArg  (args  [nj,  XmNy,  y  +  100);  n++; 
diagnosticsShell  - 

XtCreatePopupShell  (Diagnostics",  topLevelShellWidgetCIass, 
topLevel,  args,  n); 

XtAddCallback  (diagnosticsShell,  XmNdestroyCallback,  diagDestroyCB,  NULL); 
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newEscapeAction(diagnosticsShel[); 

form  =  XmCreateForm  (diagnosbcsSheil,  ‘form’*,  NULL,  0); 

XtManageChild  (form); 

XtSetArg  (args[n],  XmNsashWidth,  1);  n++; 

XtSetArg  (argsfn],  XmNsashHeight  1);  n++] 

XtSetArg  (argsjnj,  XmNleftAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (argsjnj,  XmNtopAttachment  XmATTACH_FORM);  n++; 
pane  =  XmCreatePanedWindow  (form,  “pane",  args,  n); 

XtManageChild  (pane); 

r  Create  text  output  •/ 
n  =  0; 

XtSetArg  (args(n),  XmNtopAttachment,  XmATTACH_FORM);  n++; 

XtSetArg  (argsjnj,  XmNtopOffset  5);  n++; 

XtSetArg  (argsjnj,  XmNleftAttachment  XmATTACH_WIDGET);  n++; 

XtSetArg  (argsjnj,  XmNleftWidget  pane);  n++; 

XtSetArg  (argsjnj,  XmNbottomAttachment  XmA7TACH_OPPOSJTE_WIDGET);  n++; 
XtSetArg  (argsjnj,  XmNbottomWidget  pane);  n++; 

XtSetArg  (argsjnj,  XmNbottomOffset  5);  n++; 

XtSetArg  (argsjnj,  XmNrightAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (argsjnj,  XmNrightOffset  5);  n++; 

XtSetArg  (argsjnj,  XmNeditMode,  XmMULTlJJNE_EDrT);  n++; 

XtSetArg  (argsjnj,  XmNeditable,  FALSE);  n++; 

XtSetArg  (argsjnj,  XmNcolumns,  50);  n++; 

diagText  =  XmCreateScrolledT ext  (form,  "text",  args,  n); 

XtManageChild  (diagText); 

form  =  XmCreateFonm  (pane,  "form",  NULL,  0); 

XtManageChild  (form); 

n  =  0; 

XtSetArg  (args  (n],  XmNleftAttachment,  XmATTACH_FORM);  n++; 

XtSetArg  (args  jnj,  XmNtopAttachment,  XmATTACH_FORM);  n++; 

XtSetArg  (args  jnj,  XmNbottomAttachment  XmATTACH_FORM);  n++; 
form  =  XmCreateForm  (form,  "foim2",  args,  n); 

XtManageChild  (form); 

w  =  createinputFields  (form); 

createRunOpbons  (pane); 

createAcbonArea  (pane,  actionltems,  XtNumber  (actionltems)); 

)  r  end  createDiagnosbc Windows  V 

/ . . . . . . 

*  Creates  input  fields  for  geometry  guidelines 
. * . / 


static  Widget  createinputFields  (parent) 

Widget  parent 

{ 

Xm String  xmstnng; 

Arg  args  (10); 
int  n  =  0; 

Widget  label,  rowColumn; 

xmstnng  =  XmStringCreateLtoR  f  MODELING  GUIDELINES:", 
XmSTRING_DEFAULT_CHARSET); 

XtSetArg  (args  (n],  XmNleftAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [n],  XmNleftOffset  10);  n++; 

XtSetArg  (args  jnj,  XmNtopAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  jnj,  XmNtopOffset  10);  n++; 

XtSetArg  (args  jnj,  XmNlabelString,  xmstnng);  n++; 
label  =  XmCreateLabel  (parent  "headerLaber,  args,  n); 

XtManageChild  (labeO; 

XmStringFree  (xmstnng); 

n  =  O; 

XtSetArg  (args  [n],  XmNleftAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [n],  XmNleftOffset  340);  n++; 

XtSetArg  (args  jnj,  XmNtopAttachment  XmATTACH_WIDGET);  n++; 

XtSetArg  (args  jnj,  XmNtopWidget  label);  n++; 

XtSetArg  (args  jnj,  XmNtopOffset  15);  n++; 
label  =  XmCreateLabel  (parent  "Warning",  args,  n); 

XtManageChild  (label); 

n  =  0; 

XtSetArg  (args  fn],  XmNleftAttachment  XmATTACH_WIDGET);  n++; 

XtSetArg  (args  jnj,  XmNleftWidget  labeO;  n++; 

XtSetArg  (args  jnj,  XmNleftOffset  60);  n++; 

XtSetArg  (args  jnj,  XmNtopAttachment  XmATTACH_OPPOSITE_WIDGET);  n++; 
XtSetArg  (args  jnj,  XmNtopWidget  label);  n++; 
label  =  XmCreateLabel  (parent  "Error",  args,  n); 

XtManageChild  (label); 

r  Create  the  row  column  box  V 
n  =  0; 

XtSetArg  (args  In],  XmNrightAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  jnj,  XmNtopAttachment  XmATTACH_WIDGET);  n++; 


A-101 


XtSetArg  (args  [n],  XmNtopWidget,  label);  n++; 

XtSetArg  (args  [nj,  XmNpacking,  XmPACK_COLUMN);  n++; 
rowColumn  =  XmCreateRowColumn  (parent,  "rowColumn",  args,  n); 
XtManageChild  (rowColumn); 

r  Dummy  *! 

label  =  XmCreate Label  (rowColumn,  ”,  NULL,  0); 

XtManageChild  (label); 


n  =  0; 

XtSetArg  (args  [n],  XmNeditMode,  XmSINGLE_llNE_EDfT);  n++; 

XtSetArg  (args  [nj,  XmNcolumns,  11);  n+>; 

XtSetArg  (args  (nj,  XmNvalue,  “.2");  n++; 
diagEsegmentLength  =  XmCreateText  (rowColumn,  ”,  args,  n); 

XtManageChild  (diagEsegmentLength); 

XtSetArg  (args  [2],  XmNvalue,  “2.0"); 

diagEsegRadiusRatiol  =  XmCreateText  (rowColumn,  "text",  args.  n); 

XtManageChild  (diagEsegRadiusRatiol); 

XtSetArg  (args  [2],  XmNvalue,  "03*0; 

diagEradius  =  XmCreateText  (rowColumn,  "text",  args,  n); 

XtManageChild  (diagEradius); 

r  Dummy  V 

label  =  XmCreateLabei  (rowColumn,  ”,  NULL,  0); 

XtManageChild  (label); 

XtSetArg  (args  (2),  XmNvalue,  "5.0*0; 

diagEsegLengthRatio  =  XmCreateText  (rowColumn,  "text**,  args,  n); 

XtManageChild  (diagEsegLengthRatio); 

XtSetArg  (args  [2],  XmNvalue.  “100.0*0; 

diagEradiusRatio  -  XmCreateText  (rowColumn,  "text",  args,  n); 

XtManageChild  (diagEradiusRatio); 

r  Dummy  */ 

label  =  XmCreateLabei  (rowColumn,  ”,  NULL,  0); 

XtManageChild  (label); 

diagEwireRadii  =  XmCreateText  (rowColumn,  "text",  args,  n-1); 

XtManageChild  (diagEwireRadii); 

T  Dummy  */ 

label  =  XmCreateLabei  {rowColumn,  ”,  NULL,  0); 

XtManageChild  (label); 

XtSetArg  (args  [2],  XmNvalue,  ".25"); 

XtSetArg  (args  (3),  XmNsensitive,  FALSE); 
diagEedgeLength  =  XmCreateText  (rowColumn,  "text",  args,  4); 

XtManageChild  (diagEedgeLength); 

r  Dummy  V 

label  =  XmCreateLabei  (rowColumn,  ”,  NULL,  0); 

XtManageChild  (label); 

XtSetArg  (args(2),  XmNsensitive,  FALSE); 
diagEedgeSegRatio  =  XmCreateText  (rowColumn,  "text",  args,  3); 

XtManageChild  (diagEedgeSegRatio); 

diagEedgeRadiusRatio  =  XmCreateText  (rowColumn,  "text",  args,  3); 

XtManageChild  (diagEedgeRadiusRatio); 

r  Create  the  row  column  box  *7 
n  =  0; 

XtSetArg  (args  [n],  XmNrightAttachment,  XmATTACH_WIDGET);  n++; 

XtSetArg  (args  [nj,  XmNrightWidget,  rowColumn);  n++; 

XtSetArg  (args  [nj,  XmNtopAttachment,  XmATTACH_OPPOSITE_WIDGET);  n++; 
XtSetArg  (args  (nj,  XmNtopWidget,  rowColumn);  n++; 

XtSetArg  (args  [nj,  XmNbottomAttachment,  XmATTACH_OPPOSITE_WIDGET);  n++; 
XtSetArg  (args  [nj,  XmNbottomWidget,  rowColumn);  n++; 

XtSetArg  (args  [nj,  XmNpacking,  XmPACK_COLUMN);  n++; 
rowColumn  =  XmCreateRowColumn  (parent  "rowColumn",  args,  n); 

XtManageChild  (rowColumn); 

r  Dummy  */ 

label  =  XmCreateLabei  (rowColumn,  ”,  NULL,  0); 

XtManageChild  (label); 

n  =  0; 

XtSetArg  (args  [nj.  XmNeditMode.  XmSINGLE_UNE_EDIT);  n++; 

XtSetArg  (args  [nj,  XmNcolumns.  11);  n++; 

XtSetArg  (args  [nj,  XmNvalue,  "1“);  n++; 
diagWsegmentLength  =  XmCreateText  (rowColumn,  ”,  args,  n); 

XtManageChild  (diagWsegmentLength); 

XtSetArg  (args  [2],  XmNvalue,  "2.0“); 

diagWsegRadiusRatiol  =  XmCreateText  (rowColumn,  "text",  args,  n); 

XtManageChild  (diagWsegRadiusRatiol); 


XtSetArg  (args  [2],  XmNvalue.  ".01"); 

diagWradius  =  XmCreateText  (rowColumn,  "text",  args,  n); 

XtManageChild  (diagWradius); 
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r  Dummy  */ 

lab«l  =  XmCreateLabel  (rowColumn,  NULL,  0); 

XtManageChiid  (label); 

XtSetArg  (args  [2],  XmNvalue,  "2.0 "); 

diagWsegLengthRatio  =  XmCreateText  (rowColumn,  "text",  args,  n); 

XtManageChiid  (diagWsegLengthRatio); 

XtSetArg  (args  [2],  XmNvalue,  "10.0“); 

diagWradiusRatio  -  XmCreateText  (rowColumn,  "text",  args,  n); 

XtManageChiid  (diagWradiusRatio); 

r  Dummy  7 

label  =  XmCreateLabel  (rowColumn,  NULL,  0); 

XtManageChiid  (label); 

r  Dummy  V 

label  =  XmCreateLabel  (rowColumn,  **",  NULL,  0); 

XtManageChiid  (label); 

T  Dummy  V 

label  =  XmCreateLabel  (rowColumn,  NULL,  0); 

XtManageChiid  (label); 

XtSetArg  (args  [2],  XmNvalue,  ".1"); 

XtSetArg  (args  [3],  XmNsensitive,  FALSE); 
diagWedgeLength  =  XmCreateText  (rowColumn,  "text",  args,  4); 

XtManageChiid  (diagWedgeLength); 

T  Dummy  7 

label  =  XmCreateLabel  (rowColumn,  NULL,  0); 

XtManageChiid  (label); 

XtSetArg  (args[2j,  XmNsensitive,  FALSE); 
diagWedgeSegRatio  =  XmCreateText  (rowColumn,  "text",  args,  n); 

XtManageChiid  (diagWedgeSegRatio); 

diagWedgeRadiusRatio  =  XmCreateText  (rowColumn,  "text",  args,  n); 

XtManageChiid  (diagWedgeRadiusRatio); 

f*  Create  the  row  column  box  7 
n  =  0; 

XtSetArg  (args  (n],  XmNrightAttachment,  XmATTACH_WlDGET);  n++; 

XtSetArg  (args  [nj.  XmNrightWidget,  rowColumn);  n++; 

XtSetArg  (args  [nj,  XmNtopAttachment,  XmATTACH_OPPOSITE_WlDGET);  n++;  • 
XtSetArg  (args  [nj,  XmNtopWidget,  rowColumn);  n++; 

XtSetArg  (args  [nj,  XmNbottomAttachment  XmATTACH_OPPOSrTE_WIDGET);  n++; 
XtSetArg  (args  [nj,  XmNbcttomWidget,  rowColumn);  n++; 

XtSetArg  (args  [nj,  XmNfractionBase,  14);  n++; 
rowColumn  =  XmCreateForm  (parent,  "rowColumn",  args,  n); 

r 

XtSetArg  (args  [n],  XmNpacking,  XmPACK_COLUMN);  n++; 
rowColumn  =  XmCreateRowColumn  (parent  "rowColumn",  args,  n); 

7 

XtManageChiid  (rowColumn); 

r  Widgets  for  Individual  Wires  input  7 
n  =  0; 

XtSetArg  (args  [n],  XmNtopAttachment  XmATTACH_P0SrT10N);  n++; 

XtSetArg  (args  [nj,  XmNbottomAttachment  XmATTACH_POSmON);  n++; 

XtSetArg  (args  [nj,  XmNtopPosition,  0);  n++; 

XtSetArg  (args  [nj,  XmNbottomPosition,  1);  n++; 

diaglndividualWires  =  XmCreateToggleButton  (rowColumn,  "INDIVIDUAL  WIRES", 
args,  n); 

XtManageChiid  (diaglndividualWires); 
n  =  2; 

XtSetArg  (args  [n],  XmNtopPosition.  1);  n++; 

XtSetArg  (args  [nj,  XmNbottomPosition,  2);  n++; 
label  =  XmCreateLabel  (rowColumn, 

*  segment  length  (wavelengths)  >“,  args,  n); 

XtManageChiid  (label); 

n  =  2; 

XtSetArg  (args  [n],  XmNtopPosition,  2);  n++; 

XtSetArg  (args  [nj,  XmNbottomPosition,  3);  n++; 
label  =  XmCreateLabel  (rowColumn, 

“  segment/radius  ratio  args,  n); 

XtManageChiid  (label); 

n  =  2; 

XtSetArg  (args  [n],  XmNtopPosition,  3);  n++; 

XtSetArg  (args  [nj,  XmNbottomPosition,  4);  n++; 
label  -  XmCreateLabel  (rowColumn, 

"  radius  (wavelengths)  >",  args,  n); 

XtManageChiid  (label); 


n  =  2; 

XtSetArg  (args  [n],  XmNtopPosition,  4);  n++; 

XtSetArg  (args  (nj,  XmNbottomPosition.  5);  n++; 
diagWire Junctions  =  XmCreateToggleButton  (rowColumn, 
"WIRE  JUNCTIONS",  args,  n); 
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XtManageChild  (diagWireJunctions); 
n  =  2; 

XtSetArg  (args  [n],  XmNtopPosition,  5);  n++; 

XtSetArg  (args  [nj,  XmNbottomPosition,  6);  n++; 
labei  =  XmCreateLabel  (rowColumn, 

"  segment  length  ratio  >“  args,  n); 
XtManageChild  (label); 


n  =  Z 

XtSetArg  (args  [n],  XmNtopPosition,  6);  n++; 

XtSetArg  (args  [nj,  XmNbottomPosrtion,  7);  n++] 
label  =  XmCrea  to  Label  (rowColumn, 

"  radius  ratio  >",  args,  n); 

XtManageChild  (label); 

n  =  2; 

XtSetArg  (args  [n],  XmNtopPosition,  7);  n++; 

XtSetArg  (args  [nj,  XmNbottomPosition,  8);  n++; 
diagCrossedWires  =  XmCreateToggleButton 
(rowColumn,  “CROSSED  STRAIGHT  WIRES',  args,  n); 

XtManageChild  (diagCrossedWires); 

n  =  2; 

XtSetArg  (args  [n],  XmNtopPosition,  8);  n++; 

XtSetArg  (args  [nj,  XmNbottomPosition,  9);  n++; 
label  =  XmCreateLabel 

(rowColumn,  “  number  of  wire  radii  =“,  args,  n); 

XtManageChild  (label); 

n  =  2; 

XtSetArg  (args  [n],  XmNtopPosition,  9);  n++; 

XtSetArg  (args  [nj,  XmNbottomPosition,  10);  n++; 

XtSetArg  (args  [nj,  XmNsensitive,  FALSE);  n++; 
diaglndividualPatches  =  XmCreateToggleButton 
(rowColumn,  "INDIVIDUAL  PATCHES",  args,  n); 

XtManageChild  (diaglndividualPatches); 

n  =  Z 

XtSetArg  (args  [n],  XmNtopPosition,  10);  n++; 

XtSetArg  (args  (nj.  XmNbottomPosition,  1 1);  n++; 

XtSetArg  (args  (nj,  XmNsensitive,  FALSE);  n++; 
label  =  XmCreateLabel 

(rowColumn,  "  edge  length  (wavelengths)  >",  args,  n); 

XtManageChild  (label); 

n  =  2; 

XtSetArg  (args  [n],  XmNtopPosition,  11);  n++; 

XtSetArg  (args  (nj,  XmNbottomPosition,  12);  n++; 

XtSetArg  (args  (nj,  XmNsensitive,  FALSE);  n++; 
diagPatchWireJunctions  = 

XmCreateToggleButton  (rowColumn,  "PATCH/WIRE  JUNCTIONS",  args,  n); 
XtManageChild  (diagPatchWireJunctions); 

n  =  Z 

XtSetArg  (args  (n],  XmNtopPosition,  12);  n++; 

XtSetArg  (args  (nj.  XmNbottomPosition,  13);  n++; 

XtSetArg  (args  [nj,  XmNsensitive,  FALSE);  n++; 
label  = 

XmCreateLabel  (rowColumn, "  edge/segment  ratio  args,  n); 

XtManageChild  (label); 

n  =  Z 

XtSetArg  (args  [n],  XmNtopPosition,  13);  n++; 

XtSetArg  (args  [nj,  XmNbottomPosition,  14);  n++; 

XtSetArg  (args  [nj,  XmNsensitive.  FALSE);  n++; 
label  = 

XmCreateLabel  (rowColumn,  "  edge/radius  ratio  >",  args,  n); 

XtManageChild  (label); 


return  (rowColumn); 

}  r  end  createlnputFields  */ 

r . — . . 

*  Adds  Run  Options  radio  buttons  to  window 
. . . . . . . / 


static  void  createRunOptions  (parent) 

Widget  parent; 

< 

Arg  args  [10]; 
int  n  =  0; 

Widget  form,  label,  rowColumn; 

form  =  XmCreateForm  (parent  "form-,  NULL,  0); 

XtManageChild  (form); 

n  =  0; 

XtSetArg  (args  [n],  XmNmarginTop,  7);  n++; 

XtSetArg  (args  [nj,  XmNleftAttachment,  XmATTACH_FORM);  n++; 
XtSetArg  (args  (n],  XmNleftOffset  10);  n++; 
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label  =  XmCreateLabel  (form,  "OPTIONS:-,  args,  n); 

XtManageChild  (label); 

r  Create  the  row  column  box  */ 
n  =  0; 

XtSetArg  (args  [n],  XmNtopAttachment,  XmATTACH_OPPOSrTE_WIDGET);  n++; 
XtSetArg  (args  (nj,  XmNtopWidget,  label);  n++; 

XtSetArg  (args  (nj,  XmNleftAttachment,  XmATTACH_WIDGET);  n++; 

XtSetArg  (args  [nj,  XmNleftWidget,  label);  n++; 

XtSetArg  (args  (nj,  XmNleftOffset,  15);  rvM-; 

XtSetArg  (args  [nj,  XmNrightAttachment,  XmATTACH_FORM);  n++; 

XtSetArg  (args  (nj,  XmNrightOffset,  10);  n++; 

XtSetArg  (args  (nj,  XmNpacking,  XmPACK_TIGHT);  n++; 

XtSetArg  (args  (nj,  XmNorientation,  XmHORIZONTAL);  n++; 

XtSetArg  (args  [nj,  XmNspacing,  10);  n++; 

rowColumn  =  XmCreateRadioQox  (form,  "radioBox'*,  args,  n); 

/*  Create  the  Options  buttons  V 
XtSetArg  (args(0],  XmNset,  TRUE); 

diagGeometry  =  XmCreateToggleButlon  (rowColumn,  "Geometry-,  args,  1); 

XtManageChild  (diagGeometry); 

diagElectrical  =  XmCreateToggleButton  (rowColumn, 

"Bectrical/Solution",  NULL,  0); 

XtManageChild  (diagElectrieal); 

XtManageChild  (rowColumn); 


> 


7 


static  void  cancelButtonCB  (void) 

{ 

XtPopdown  (diagnosticsShell); 

)  r  end  cancelButtonCB  7 
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A.11  needsplt.c 


needsplt.c: 

r  needspttc  */ 
r  modified  by  LCR  5/17/94  7 

include  <X11/lntrinsic.h> 

#mclude  <X11/StringDefs.h» 
include  <Xm/DrawingA.h> 
include  <srgp.h» 
include  "tplxll.h" 

#indude  <xtdio.h> 
include  <stdlib.h> 

#indude  <string.h> 
include  <math.h> 

#define  FULL_CIRCLE  (360*64) 

#defir>e  START  CIRCLE  0 
#define  MAXLINE  120 

extern  Widget  topLevel; 

extern  void  createMessageDialog  0; 

static  void  destroyCB  0; 
static  void  drawingJinearO; 
static  void  drawing_smrthO; 
static  void  drawing  polarfl: 
static  int  getZO; 

static  int  getAO; 

static  int  getCRO; 

static  int  getQQ; 

static  int  getCPO; 

static  int  getPTQ; 

static  int  getNEO; 

static  int  getNHO; 

static  XtEventHandler  LinearEventHandlerO; 
static  XtEventHandler  SmithEventHandlerO; 
static  XtEventHandler  PolarEventHandlerQ; 


char 

line[120J; 

char 

file  name[132J; 

RLE 

•infile; 

char 

in__file[132J; 

static  char 

rzQ  =".rz“; 

static  char 

raQ  =  "ra“; 

static  char 

rcrQ  =  "rcr"*; 

static  char 

rqQ  =  “  rqH; 

static  char 

rcpQ  =  ".rep"; 

static  char 

rptQ  =  ”.rpr; 

static  char 

meQ  =  “.me"; 

static  char 

mmQ  =  “.mm"; 

int 

plttype; 

int 

source; 

float 

selfreq; 

float 

sebc,sely,selz; 

float 

angle; 

int 

tag; 

FILE 

•filep; 

Boolean 

sphigsOff  =  True; 

r  Plotting  data  7 

typedef  struct  jJlotData  { 

int 

numxpts; 

float 

xarray{2500], 

yarrayf2500); 

float 

freq[300]; 

float 

xlunrt. 

xrunrt. 

ytunit, 

ybunit; 

char 

titlestr[80); 

GO 

gc; 

>  PlotData; 


include  <Xm/PushB.h> 
include  <Xm/Form.h> 
void  needsPlot  (type,  inputs) 
char  *type, 

•inputs;  /*  string  containing  input  values  V 

{ 

char  *ptn 

Widget  popup,  drawing_a; 

Arg  args(4]; 

int  n, 
cont 

PlotData  ‘plotData; 

extern  Widget  topLevel; 

extern  char  *necOutputFilenarne; 


extern  void  newEscapeAction20; 


P  Create  the  plotting  window  7 
popup  =  XtVaCreatePopupShell 
(NULL,  topLevelShellWidgetClass,  topLevel, 

XmNtitie,  “Plot  Output", 

XmNallowShellResize,  True, 

XmNdeleteResponse,  XmDESTROY, 

NULL); 

r»ewEscapeAction2(popup); 
n  =  0; 

XtSetArg(args(n],XtNx,0);  n++; 

XtSetArg(args(n],XtNy,0);  n++; 

XtSetArg(args(nj,XtNwidth,701);  n++; 

XtSetArg(args[n],XtNheight,701);  n++; 

drawing  a  =  XmCreateprawingArea(popup, “window**, args.n); 

XtAddCallback  {drawing_a,  XmNdestroyCallback,  destroyCS,  NULL); 

P  Create  structure  for  storing  plotting  data.  Save  GC  7 
plotData  =  (PlotData  •)  XtMalloc  (sizeof  (PlotData)); 

XtVaSetValues  (drawmg_a,  XmNusefOata,  plotData,  NULL); 

P  determine  and  open  input  files  7 
strcpy(file_name,  necOutputFilename); 
ptr  =  strTchrffHe^ame,'.'); 
if  (ptr)  *(ptr)  =  *\0*; 

P  get  the  command  option  7 
if  (strcmp(type,“Z**)  ==  0)  {  P  Impedance  7 
sscanf  (inputs,  "%i  %i*\  &plttype,  &source); 
cont  =  getZ  (drawing  a); 

> 

else  if  (strcmp(type,**A")  ==  0)  {  P  Admittance  7 
sscanf  (inputs,  **%i  %i“,  &plttype,  &source); 
cont  =  getA  (drawings); 

> 

else  if  (strcmp(typeTCR")  ==  0)  {  /*  Currents  7 
sscanf  (inputs,  “%i  %i  %f  %i".  &plttype,  &source,  &selfreq,  &tag); 
cont  =  getCR  (drawing_a); 

} 

else  if  (strcmp(type  “Q")  ==  0)  {  P  Charge  7 
sscanf  (inputs,  “%i  %i  %f  %iM,  &plttype,  &source,  &selfreq,  &tag); 
cont  -  getQ  (drawing_a); 

> 

else  if  (strcmp(type  “CP**)  “0)  {  r  Coupling  7 
cont  =  getCP  (drawing_a); 

> 

else  if  (strcmp(type,“PT')  ==  0)  {  P  Radiation  Patterns  7 
sscanf  (inputs,  “%i  %i  %f  %f,  &plttype,  &source,  &selfreq,  Wangle); 
cont  =  getPT  (drawing_a); 

> 

else  if  (strcmp(type,"NE”)  ==  0)  {  P  Near  Electnc  Fields  7 
float  sell ,  se!2,  sel3; 

sscanf  (inputs,  "%i  %i  %f  %f  %f\  &plttype,  &source,  &sel1 ,  &sel2,  &sel3); 
switch  (plttype)  { 
case  1: 

case  5:  sely  =  sell; 
selz  =  sel2; 
selfreq  =  se!3; 
break; 
case  2: 

case  6:  sebc  =  sell; 
seiz  =  sel2; 
selfreq  =  se!3; 
break; 
case  3; 

case  7:  sebc  =  sell ; 
sely  -  sel2; 
selfreq  =  se!3; 
break; 
case  4: 

case  8:  selx  =  sell; 
sely  =  sel2; 
selz  =  se!3; 
break; 

} 

cont  =  getNE  (drawing_a); 

} 

else  if  (strcmp(type,~NH‘*)  ==  0)  {  P  Near  Magnetic  Fields  7 
float  sell ,  sel2,  set3; 

sscanf  (inputs,  "%i  %i  %f  %f  %r,  Splttype,  &source,  &sel1 ,  &se!2,  &sel3); 
switch  (plttype)  { 
case  1: 

case 5:  sely  =  sell; 
selz  =  se!2; 
selfreq  =  se!3; 
break; 
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case  2: 

case  6:  sebc  =  sell ; 
selz  =  sei2; 
setfreq  =  sei3; 
break; 
case  3; 

case  7;  sebc  =  sell; 
sely  =  sel2; 
setfreq  =  sel3;  ■ 
break; 
case  4: 

case 8:  sebc  =  sell; 
sely  =  se!2; 
seiz  =  sei3; 
break; 

> 

coot  =  getNH  (drawing_a); 

) 

r  If  there  were  input  errors,  don't  plot  7 
if(cont=-1){ 

XtDestroyWidget  (popup); 

XtFree  ((char  *)  piotData); 
return; 

> 

r  Add  callbacks  7 

if  ((strcmp  (type, "2“)  =  0)  &&  (plttype  =  3)) 

)&AddEventHandler(drawing_a,  ExposureMask,  TRUE, 

(XtEventHandler)  SmithEventHandler,  0); 
else  if  (strcmp  (type, "FT)  =  0) 

XtAddEventHand!er(drawing_a,  ExposureMask,  TRUE, 

(XtEventHandler)  PolarEventHandler,  0); 

else 

XtAddEventHandler(drawing_a,  ExposureMask,  TRUE, 

(XtEventHandler)  LinearEventHandler,  0); 

XtManageChild  (drawing_a); 

XtPopup  (popup,  XtGrabNone); 

SIMPLE_DISP  =  XtDisplay(drawing_a); 

SIMPLE  WIN  =  XtW»ndow(drawing_a); 

SIMPLE  WIN  WIDTH  =  700; 

SIMPLE_WIN_HIGHT  =  700; 

r  create  SRGP  window  V 
if  (sphigsOff)  { 
sphigsOff  =  False; 

> 

SRGP_begin(“needsplt“,  700,  700,  3,  FALSE); 

SRGPJoadCommonColor  (0,  "white"); 

SRGPJoadCommonColor  (1,  "black"); 

SRGPJoadCommonColor  (2,  "white"); 

SRGPJoadCommonColor  (4,  “red"); 

if  ((strcmp  (type,"Z")  ==  0)  &&  (plttype  ==  3)) 
drawingsmith  (drawing  a); 
else  if  (strcmp  (type,HPTT*==  0) 
drawing  polarfdrawinq  a): 
else 

drawing  Jinearfdrawing  a); 

>  r  end  needsPlot  7 

static  XtEventHandler  SmithEventHandlerfWidget  widget,  char  "xtag,  XEvent  "xevent) 

{ 

SIMPLE_DISP  =  XtDisplay(widget); 

SIMPLE_WIN  =  XtWindow(widget); 

if  (xevent->type== Expose) 
drawing_smith(widget); 
xtag  =  xtag; 

return  (XtEventHandler)O; 

} 

static  XtEventHandler  PolarEventHandler(Widget  widget,  char  "xtag,  XEvent  "xevent) 

{ 

SIMPLE_DISP  =  XtDisplay(widget); 

SIMPLEJWIN  =  XtWindow(widget); 

if  (xevent->type=  Expose) 
drawing  polarfwidget): 
xtag  =  xtag; 

return  (XtEventHandler)O; 

> 

static  XtEventHandler  Linear€ventHandler(Widget  widget,  char  "xtag,  XEvent  "xevent) 

{ 

SIMPLE.DISP  =  XtDisplay(widget); 

SIMPLE  WIN  =  XtWindow(widget); 


if  (xevent->  type=  Expose ) 
drawing  linear(widqet); 
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xtag  =  xtag; 

return  (XtEventHandler)O; 

> 

static  int  getZ(drawing__a) 

Widget  drawing^; 

{ 

static  char  *Zstr(3]  =  { 

"Resistance  vs  Frequency", 

"Reactance  vs  Frequency", 

"Smith  Chart"}; 
char  tookforf15]; 
int  i; 

float  a,b,c,d,e; 

PtotOata  *plotData; 
extern  FILE  ’efopen  0; 

r  Get  data  structure  from  widget  for  storing  plot  data  7 
XtVaGetValues  (drawing  a.  XmNuseriData,  &plotData,  NULL); 

sprintf(plotData->titiestr1"%s,  Source  =%5d",Zstr{plttype-1}1source); 

strcpy(in_fiie,file_name); 

strcat(in_file,rz);” 

if  ((infile  =  efopen  (injile,  "r))  =  NULL) 
return  (0); 

T  dump  first  lines  7 
sprintf(lookfor, "Source  :%5d\n", source); 
fgets(Iine,  MAXLINE,  infile}; 
while(strcmp(lookfor,line)  !=  0)  { 
if  (fgets(lino,  MAXLINE,  infile)  ==  NULL)  { 
createMessageDiaiog  (topLevel,  "Impedance", 

"Could  not  plot  Source  not  found.",  XmDIALOG_MESSAGE); 

return  (-1); 

} 

> 

r  now  read  in  data  7 
fgetsOine,  MAXLINE,  infile); 
fgets(line,  MAXLINE,  infile); 
fgets(line,  MAXLINE,  infile); 
i  =  1; 

while  ((fscanf(infile,"%f  %f  %f  %f  ttr.&a.&b.&c.&d.&e))  =  5)  { 
if  (plttype  ==  1)  plotData->yarray(i]  =  b; 

if  (plttype  =  2)  plotData->yarrayH  =  c; 
plotData->xarray[i]  =  a; 
if  (plttype  ==  3)  { 
plotData->freq(i)  =  a; 
plotData->xarray[i]  =  d; 
plotData->yarray(i]  =  e; 

} 

ifC  =  i){ 

plotData->xlunit  =  plotData->xarray(1]; 
plotData->xrunit  -  plotData->xarray(1); 
plotData->ytunrt  =  plotData->yarray(1]; 
ptotData->ybunit  =  plotData->yarray{1  j; 

}  ©Is®  ( 

if  (plotData->xarray[i]  <  p!otData->xJunit) 
plotData->xiunit  -  plotData->xarray[i]; 
if  (plotOata->xarray[i]  >  plotOata->xrunit) 
plotData->xrunit  =  plotData->xarray[i]; 
if  (plotData->yarray(i]  <  plotData->ybunit) 
plotData->ybunit  =  plotData->yarray[i]; 
if  (plotData->yarray(i]  >  plotData->ytunit) 
plotData->ytunit  =  plotData->yarray[i]; 

> 

i++; 

} 

fclose  (infile); 
plotData->numxpts  =  i-1; 
if  (j-1  ==  0)  { 

createMessageDiaiog  (topLevel,  "Impedance", 

"Graph  contains  no  data  points  ",  XmDIALOG_MESSAGE); 

return  (-1); 

}  else 
return  (0); 

> 

static  int  getA  (drawing_a) 

Widget  drawing_a; 

{ 

static  char  *Astr(2]  =  { 

"Conductance  vs  Wavelength", 

"Susceptance  vs  Wavelength"}; 
char  lookfor(15); 
int  i; 
float  a,b,c; 

PlotData  ’plotData; 
extern  FILE  "efopen  0; 

r  Get  data  structure  from  widget  for  storing  plot  data  7 
XtVaGetValues  (drawing_a,  XmNuserData,  &plotData,  NULL); 
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sprintf(plotData->titJestr,"%«,  Source  =%5d",Astr(plttype-1]1  source); 

»*rcpy(in_file,file_name); 

strcat(in  file.ra);- 

if  ((infile  =  efopen  T))  =  NULL) 

return  (0); 

r  dump  first  lines  */ 
sprintfOookfor, “Source  :%5d\n",source); 
fgetsOine,  MAXLINE,  infile); 
while(strcmp(Iookfor,line)  1=  0)  { 
if  (fgetsOine,  MAXUNE  infile)  =  NULL)  { 
createMessageDiaiog  (topLevel,  "Admittance", 

"Could  not  plot  Source  not  found",  XmDIALOG_MESSAGE); 

return  (-1); 

) 

> 

r  now  read  in  data  V 
fgets(line,  MAXLINE,  infile); 
fgets(line,  MAXUNE,  infile); 

I  =  1; 

while  ((fscanf(infiie,"%f  %f  %r,&a,&b,&c))  —  3)  { 
if  (plttype  =  1)  plotOata->yarTay(i]  -  b; 
if  (plttype  =  2)  plotData->yarray[i]  =  c; 
plotData->xarrayfi]  -  a; 
if(i==1){ 

plotData-»dunit  =  plotData->xarray{1]; 
plotData->xrunit  =  p!otData->xarray(1]; 
plotData->ytunit  =  plotOata->yarrayflj; 
plotData->ybunit  =  plotData->yarray(1  j; 

>else{ 

if  (p!otData->xarrayfi]  <  plctData->xlunit) 
plctData->xiunrt  =  plotData->xarrayfi]; 
if  (plotData->xarray(i]  >  plotData->xrunit) 
pkrtData->xrunrt  =  plotData->xarray(i]; 
if  (ptotData-»yarrayfi]  <  plotDat»->yt>unrt) 
plotData->ybunit  =  plotData->yarray(i]; 
if  (plotData-»yarrayO]  >  plotData->ytunit) 
plotData->ytunit  =  ptotData->yarTayfi]; 

} 

i++; 

> 

fclose(infile); 
plotData->numxpts  =  i*1; 
if  (i-1  =  0)  { 

createMessageDiaiog  (topLevel,  "Admittance", 

"Graph  contains  no  data  points.",  XmDIALOG_MESSAGE); 
return  (-1); 

}  else 
return  (0); 

> 

static  int  getCR  (drawing_a) 

Widget  drawing_a; 

{ 

static  char  *CRstr(8J  =  { 

“Current  Mag  vs  X", 

"Current  Mag  vs  Y", 

"Current  Mag  vs  2", 

"Current  Mag  vs  Seg", 

"Current  Phase  vs  X", 

"Current  Phase  vs  Y", 

"Current  Phase  vs  2", 

"Current  Phase  vs  Seg*}; 
inti; 

floata,b,c,d,e,f; 
int  ia.ib.ic; 

PlotData  "plotData; 
extern  FILE  "efopen  0; 

r  Get  data  structure  from  widget  for  storing  plot  data  */ 

XtVaGetValues  (drawing_a,  XmNuserData,  &piotData,  NULL); 

if  (tag  ==  0) 

sprintf(plotData->titiestr,"%s,  Source  =%5d,  Freq  =%6.2f,  Tag  =  ALL”, 
CRstr{plttype-1],  source, setfreq); 

0ls^ 

sprintf(plotData->titlestr,"%st  Source  -%5d,  Freq  =%6.2f.  Tag  =%3d", 
CRstrtplttype-1],  source, setfreq, tag); 
strcpy(in_file,file_name); 
strcat(in_file,rcr); 

if  ((infile  =  efopen  (in_file,  "r"))  =  NULL) 
return  (0); 

T  dump  first  6  lines  7 
fgets(line,  MAXLINE,  infile); 
fgets(line,  MAXLINE,  infile); 
fgets(line,  MAXUNE  infile); 
fgets(!ine,  MAXLINE,  infile); 
fgetsOine,  MAXUNE,  infile); 
fgetsOine,  MAXUNE,  infile); 

r  now  read  in  data  7 
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1  =  1; 

while  ((fscanf  (infile, "%d  %d  %f  %f  %f  %f  %f  %f  %d", 
&ia>&ib,&a,&b,&c,&d,&el&f,&ic))  1=  EOF)  { 
if  ({source  ==  ic)&&(selfreq  ==  f)&&((tag  —  ib)JJ(tag  ==  0)))  { 
switch  (plttype) 

{ 

case  1 :  plotData->yarray(Fj  =  d; 
plotOata->xamayfi]  =  a; 
break; 

case  2:  plotData->yarray(t)  =  d; 
plotData->xarray{i]  =  b; 

break; 

case  3:  pfotData->yarray(i]  =  d; 
ptotData->xarray[i]  =  c; 
break; 

case  4:  plotData->yanay[i]  =  d; 
plotData->xarray(i]  =  (float)  ia; 
break; 

case  5:  plotData->yarray(i]  =  e; 
plotData*>xarrayp]  =  a; 
break; 

case  6:  plotData->yarray(i)  =  e; 
pk)tData*>xaiTay(Fj  s  b; 
break; 

case  7:  plotData->yarrayjl]  =  e; 
plotData->xarray[i]  =  c; 
break; 

case  8;  plotData->yarray(i]  =  e; 
plotData->xarray[i]  =  (float)  ia; 
break; 

} 

if(i  =  1){ 

plotData->xlunit  =  plotData->xarray(1j; 
plotData->xrunit  =  plot0ata->xarray(1]; 
piotData->ytunit  =  plotData->yarray(1]; 
piotData->ybunrt  =  plotData->yarray(1  j; 

}else{ 

if  (plotData->xarray(n  <  piotData-»dunit) 
plotData->xlunit  =  plotData->xarray(i]; 
if  (plotData->xarray$  >  plotData->xrunit) 
plotData->xrunrt  =  plotData->xarray(i]; 
if  (plotData->yarraytf]  <  plotData->ybunit) 
plotData->ybunit  =  plotData-^yarrayfi]; 
if  (plotData->yarTaytf]  >  plotData->ytunit) 
plotData->ytunit  =  plotData->yarray(i]; 

> 

r++; 

> 

> 

fciose(infile); 
plotData->numxpts  =  i-t ; 

ifO-1  =  0){ 

createMessageDialog  (topLevel,  "Currents”, 

"Graph  contains  no  data  points.",  XmDIALOG_MESSAGE); 
return  (-1); 

}else 
return  (0); 

> 

static  int  getQ  (drawing_a) 

Widget  drawing  a; 

{ 

static  char  *Qstr(4]  =  { 

"Charge  vs  X", 

"Charge  vs  Y", 

“Charge  vs  Z", 

"Charge  vs  Seg"}; 
inti; 

floata,b,c,d,e; 
int  ia.ib.ic; 
char  ch; 

PfotData  "plotData; 
extern  FILE  "efopen  0; 

/*  Get  data  structure  from  widget  for  storing  plot  data  V 
XtVaGetValues  (drawing_a,  XmNuserData,  &plotData,  NULL); 

if  (tag  =  0) 

sprintf(plotData->titiestr,**%s,  Source  =%5d,  Freq  =%6.2f,  Tag  =  ALL", 
Qstrtplttype-1],  source, selfreq); 
else 

sprintffplotData^titlestr.^s.  Source  =%5d,  Freq  =%6.2f.  Tag  =%3d*\ 
Qstr[plttype-1],  source, selfreq, tag); 
strcpy(in_file,file_name); 
strcat(in_file,rq); 

if  ((infile  =  efopen  (injile,  V))  ==  NULL) 
return  (0); 

r  dump  first  6  lines  */ 
fgets(line,  MAXUNE,  infile); 
fgetsfline,  MAXLINE,  infile); 
fgetsfline,  MAXLINE,  infile); 
fgets(line,  MAXUNE,  infile); 
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fgetsO'ne,  MAXLINE,  infile); 
fyetsfline,  MAXLINE,  infile); 

/*  now  read  in  data  */ 

i=  1; 

while  ((fscanf(infi!e,“%5d%c  %d  %f  %f  %f  %f  %f  %d“, 
&ia,&ch,&ib,&a,&b.&c1&d,&e,&ic))  1=  EOF)  { 
if  ({source  =  ic)&&(selfreq  ==  e)&&((tag  =  ib)||(tag  ==  0)))  { 
if  (ch  =  ’ET)  l^i-l; 
switch  (pittype)  { 
case  1 :  plotData->yarrayfi]  =  d; 
plotData->xarray[i]  =  a; 
break; 

case  2.  plot0ata->yarray[i]  =  d; 
plotData->xarray(i]  =  b; 
break; 

case  3:  plotOata->yarray(i]  =  d; 
pk5tData->xarrayfi]  =  c; 
break; 

case  4:  p!otData->yarray{i]  =  d; 
piotData->xarray(i]  =  (float)  ia; 
break; 

> 

if(i  =  1){ 

plotData->xiunit  =  plotData->xarrayf1); 
plctOata->xninit  =  plotData->xarrayf!]; 
plotData->ytunit  =  plotData-»yarrayt1  j; 
plotData->ybunit  =  pIotData->yarray(lj; 

)  else  { 

if  (plotData->xarray(i]  <  plotData->xIunit) 
plotData*>xlunrt  =  plotData->xarrayjl]; 
if  (plotData->xarray(i]  >  plotData->xrunrt) 
plotOata->xrunit  =  plotData->xarray0]; 
if  (plotData->yarrayfi]  <  plotData->ybunit) 
plotData->ybunrt  =  plotData->yarrayfi]; 
if  (plotData->yarrayti]  >  plotData->ytunrt) 
plotData~>ytunit  =  pk»tData->yarray[i]; 

} 

i++; 

> 

} 

fclose(infile); 
plotData->numxpts  =  i-1; 
if  (i-1  “  0)  { 

createMessageDialog  (topLevel,  “Charges", 

“Graph  contains  no  data  points  ",  XmDIALOG_MESSAGE); 
return  (-1); 

)  else 
return  (0); 


static  int  getCP  (drawing_a) 

Widget  drawing^; 

{ 

static  char  CPstrQ  =  Isolation  vs  Frequency*; 
int  i; 

float  a, b; 

PlotData  *plotData; 
extern  FILE  *efopen  0; 

r  Get  data  structure  from  widget  for  storing  plot  data  V 
XtVaGetValues  (drawing__a,  XmNuserOata,  AplotData,  NULL); 

sprintf(plotData->tjtiestr,"%s“,CPstr); 
strcpy(in_file,file_name); 
strcatfm  file, rep); 

if  ((infile  =  efopen  (in_file,  V))  ==  NULL) 
return  (0); 

F  dump  first  4  lines  */ 
fgets(line,  MAXLINE,  infile); 
fgets(line,  MAXLINE,  infile); 
fgets(line,  MAXLINE,  infile); 
fgetsfline,  MAXLINE,  infile); 

r  now  read  in  data  V 
i=  1; 

while  <{fscanf(infile,“%f  %r,&a,&b))  !=  EOF)  { 
plotData->yarray[0  =  b; 
piotData->xanayfi]  =  a; 

if  (i  =  D{ 

plotOata->xlunit  =  plotData*>xarray(1]; 
plotData->xrunit  =  plotData->xarray(1); 
plotOata->ytunrt  =  plotData->yarray(11; 
plotData->ybunit  =  plotData->yarray(1]; 

)else{ 

if  (ptotData->xarrayH  <  plotData->xluntt) 
plotData->xlunrt  =  plotOata->xarray(i]; 
if  (piotData->xarray[i]  >  plotData->xrunrt) 
plotData->xrunit  =  plotData->xarray(tj; 
if  (plotData->yarray{ij  <  plotDat»->ybunrt) 
plotData->ybunit  =  plotData->yarray(i]; 
if  (plotData->yarray{i]  >  plotData->ytunit} 
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plotData->ytunit  =  plotData->yarrayp]; 

) 

i++; 

> 

fdosefinfile); 
plotData-»numxpts  =  1-1; 
if  (i-1  “  0)  { 

createMessageDialog  (topLevel,  "Coupling", 

"Graph  contains  no  data  points. ",  XmDIALOG_MESSAGE); 
return  (-1); 

}etse 
return  (0); 

> 

static  intgetPT  (drawings) 

Widget  drawing_a; 

{ 

static  char  *PTstr(4]  =  { 

“Vertical  vs  Theta", 

"Horizontal  vs  Theta", 

"Vertical  vs  Phi", 

"Horizontal  vs  Phi1}; 
char  tookfor1[25]; 
char  lookfor2[15]; 
inti; 

float  a.b.c.d.e.f.g.h; 

PiotData  'plotData; 
extern  FILE  *efopen  0; 

r  Get  data  structure  from  widget  for  storing  plot  data  V 
XtVaGetValues  (drawmg  a.  XmNuserData,  &plotData,  NULL); 

if  ({plttype  ==  1)||(ptttype  ==  2)) 

spnntf(plotData->trtlestr,**%s,  Source  =%5d,  Freq  =%6.2f,  Phi  =%6.1f*, 
PTstrtplttype-1].source,selfreq, angle); 

else 

sprintf(plotData->titJestr<"%s,  Source  =%5d,  Freq  =%6.2f.  Theta  =%6.1f\ 
PTstr[plttype- 1  ],  source ,  selfreq ,  angle); 
strcpyfm_fi  le,  fi  le_na  m  e) ; 
strcat(in  file.rpt); 

if  ((infile  =  efopen  (in_file.  "O)  ==  NULL) 
return  (-1); 

r  first  took  for  frequency  V 

spnntf(iookfor1 FREQUENCY  =%10.3r,seffreq); 

fgets(line,  MAXLINE,  infile); 

"(line  +  22)  =  'VO'; 

while(strcmp(lookfor1.line)  1=  0)  { 
if  (fgets(line.  MAXUNE.  infile)  ==  NULL)  { 
create  Message  Dialog  (topLevel,  "Radiation  Patterns”, 

“Could  not  plot.  Frequency  not  found.",  XmDIAlOG_MESSAGE); 
return  (-1); 

) 

•(line  +  22)  =  V7. 

} 

r  now  took  for  source  7 
sprintf(lookfor2,“  SOURCE  :%5d", source); 
fgets(line.  MAXLINE,  infile); 

"(line  +  14)  =  KT; 

while(strcmp(lookfor2.line)  !=  0)  { 
if  (fgets(line,  MAXUNE,  infile)  =  NULL)  { 
createMessageDialog  {topLevel,  "Radiation  Patterns", 

"Could  not  plot  Source  not  found.",  XmD!ALOG_MESSAGE); 
return  (-1); 

} 

*(line  +  14)  =  'VO*; 

} 

T  now  read  in  data  7 
fgets(Iine,  MAXLINE,  infile); 
fgets(iine,  MAXLINE,  infile); 
i  =  1; 

while  ((fscanf(infiie,"%f  %f  %f  %f  %f  %f  %f  %r, 
&a1&b,&crid1&e.&f,&g,&h))  ==  8)  { 
if  ((((plttype  ==  1)|i(plttype  ==  2))&&(angle  ==  b))|| 

{((plttype  ==  3}jJ(plttype  ==  4))&&(angle  ==  a)))  { 
switch  (plttype)  { 
case  1:  plotData->yarray(i]  =  c; 
plotData->xarray(i)  =  a; 
break; 

case  Z  plotData->yarray[i]  =  d; 
ptotOata->xarray[i]  -  a; 
break; 

case  3;  plotData->yarrayfi]  =  c; 
plotData->xarTay(i]  =  b; 
break; 

case  4:  plotData->yarrayfi]  =  d; 
plotData->xarray(i]  =  b; 
break; 

> 

if  (i=  1)  { 

plotData->xiunit  =  ptotData*>xarray{1); 
piotData->xrunit  =  plotOata->xarray(1]; 
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plotOata->ytunit  =  plotData->yarray{1]; 
plotData->ybunit  =  piotData->yarray(1]; 

if  (plotData->xarray(i]  <  plotData->xJunrt) 
plotData->)dunit  =  plotOata->xarray[i]; 
if  (plotData->xarray{i]  >  plotData*>xrumt) 
pkrtData->xrunrt  =  plotData->xarrayfi]; 
if  (plotData-»yarray(i]  <  plotData->ybunit) 
plotData->ybunit  =  plotData->yarray{iJ; 
if  (piotData->yarrayfi]  >  plotData->ytunit) 
plotData->ytunit  =  plotData->yarray[i]; 

> 

i*+; 

> 

> 

fdoseflnfile); 
pkrtData->numxpts  =  1-1; 
if  0-1  —  0)  { 

createMessage  Dialog  (topLevel,  "Radiation  Patterns", 

"Graph  contains  no  data  points.",  XmOIALOG_MESSAGE); 
return  (-1); 

}  else 
return  (0); 


static  int  getNE  (drawing_a) 

Widget  drawing_a; 

< 

static  char  *NEstr(8]  =  { 

"Ez_nor  vs  X", 

"Ez_nor  vs  Y", 

"Ez_nor  vs  2", 

"Ez_nor  vs  Frequency", 

"E_nor  vs  X", 

"E  nor  vs  Y", 

"ElnorvsZ", 

"E_nor  vs  Frequency"}; 
char  kx>kfor1[22]; 
char  lookfor2[t  4]; 
char  fline[30]; 
int  i; 

float  curfreq; 
float  a,b,c,d,e,o,p; 

PlotData  "plotData; 

r  Get  data  structure  from  widget  for  storing  plot  data  */ 

XtVaGetValues  (drawing__a,  XmNuserOata,  &plotData,  NULL); 

if  ((plttype  =  1)||(plttype  ==  5)) 

sprintf(plotData->titlestr."%s,  Source  =%5d,  Y  =%6.2f,  2  =%6.2f,  Freq  =%6.2T, 
NEstr{plttype-1], source.sely.se  tz, selfreq); 
else  if  ((plttype  ==  2)  |!  (plttype  ==  6)) 

sprintf(plotData->titiestr1"%s1  Source  =%5d,  X  =%6.2f,  2  =%6.2f,  Freq  =%6.2T, 
NEstrtpIttype-t],  source,  selx,selz,  selfreq); 
else  if  ((plttype  ==  3)||(plttype  ==  7)) 

sprint^plotData^titiestr.'^s,  Source  =%5d,  X  =%6.2f,  Y  =%6.2f,  Freq  =%6.2f\ 
NEstifptttype-IJ.source.sebc.sely,  selfreq); 
else  if  ({plttype  —  4)|j(plttype  ==  8)) 

sprintf(plotData*>titlestr,“%s,  Source  =%5d,  X  =%6.2f,  Y  =%6.2f,  2  =%6.2T, 
NEstr[plttype>1  ],  source,  sebc.sely.sel2); 

i  =  t; 

strcpy(in_file,file_name); 
strcat(in  file, me); 

if  ((infile~=  fopenOn_file."r))  ~  (FILE*)0)  { 
prmtf(*\n\ftt  File  %s  could  not  be  opened.  \n“,  in^file); 
exit(1); 

r  handle  plot  types  4  and  8  differently  from  the  rest  */ 
if  ((plttype  =4)||(plttype==  8))  { 

T  look  for  a  frequency  line  V 
sprintf(lookfor1,"  FREQUENCY  ="); 
while  (fgetsGine,  MAXLINE,  infile)  !=  NULL)  { 

•(line  +  12)  =  'NO*; 
rf  (strcmp(lookfor1,  line)  ==  0)  { 
strcpy(fiine,!ine+1 3); 
printf("3:fline  is:%s...",fline); 

•(fline  ♦  9)  =  10*; 
curfreq  =  atof(fline); 

r  now  look  for  currect  source  V 
sprintf(lookfor2,"  SOURCE  :%5<T, source); 
fgetsGine,  MAXLINE,  infile); 

•Gine  +  14)  =  10*; 
while(strcmp(lookfor2,line)  1=  0) 

{ 

if  (fgetsGine,  MAXUNE,  infile)  =  NULL)  { 
createMessageDialog  (topLevel,  "Near  Electric  Fields", 

“Could  not  plot  Source  not  found.",  XmD!ALOG_MESSAGE); 
return  (-1); 

> 

*Gine  +14)  =  10*; 

> 
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r  now  discard  next  two  lines  7 
fgetsfline,  MAXLINE,  infile); 
fgets(line,  MAXLINE,  infile); 

T  now  scan  through  data  looking  for  match  to  x,y,and  z  V 
while  ((fscanf(infile,"%f  %f  %f  %f  %f  %f  %f*f 
&a,&br&c,&d,&e,&o,&p))  =  7)  { 
if  ((a=selx)&&(b=sely)&&(c=selz))  { 
plotData->xarray[i]  =  curfreq; 
if  (plttype  =  4)  plotData^>yarrayti]  =  o; 
if  (plttype  ==  8)  plotData->yarray(ij  =  p; 
if  0  —  1)  { 

plotData->xlunit  =  piotData->xarray(1]; 
plotData->xnjnrt  =  plotData-»xarray(1]; 
plotData->ytunit  =  plotData->yarray(1]; 
plotData~>ybunit  =  plotData-»yarray(lj; 

)else{ 

if  (plotOata->xarray]i]  <  plotData->xlunit) 
plotData->xlunit  =  plotOata->xarTay[i]; 
if  (plotData->xarcay(i]  >  plotData->xnjnit) 
plotData->xrunit  =  plotOata->xanay(i]; 
if  (plotData->yarrayti]  <  plotData->ybunit) 
plotData->ybunrt  =  plotData-»yarrayfi]; 
if  (plotData->yarray(i]  >  plot0ata->ytunrt) 
plotData->ytunit  =  plotData->yarrayfi]; 

} 

i++; 

> 

> 

> 

} 

} 

else  { 

r  first  look  for  frequency  */ 

sprintf(lookfor1 FREQUENCY  =%10.3f\se!freq); 

fgets(line,  MAXLINE,  infile); 

•{line  +  22)  =  *\CT; 
while(strcmp(lookfor1,line)  !=  0)  { 
if  (fgets(line,  MAXL1NE,  infile)  ==  NULL)  { 
createMessageDialog  (topLevel,  "Near  Electric  Fields", 

"Could  not  plot  Frequency  not  found  ",  XmDIALOG_MESSAGE); 
return  (-1); 

> 

•(line  ♦  22)  =  *\0*; 

} 

r  now  look  for  source  7 
sprintf(lookfor2,"  SOURCE  :%5d", source); 
fgets(line,  MAXLINE,  infile); 

*(line+14)  =  *\0r; 
while(strcmp(lookfor2,line)  !=  0)  { 
if  (fgets(!ine,  MAXLINE,  infile)  ==  NULL)  { 
createMessageDialog  (topLevel,  "Near  Electric  Fields", 

"Could  not  plot  Source  not  found.",  XmDIALOG_MESSAGE); 
return  (-1); 

> 

•(line  +  14)  =  *\0’; 

> 

r  now  read  in  data  7 
fgets(Jine.  MAXLINE,  infile); 
fgets(line,  MAXLINE,  infile); 
i  =  1; 

while  ((fscanf(infile,"%f  %f  %f  %f  %f  %f  %r. 

&a,  &b,  &c,  &d,  &e,  &o,  &p))  ==  7)  { 
if  ((((plttype  ==  1)II(plttype  ==  5))&&{b  ==  sely)&&(c  ==  selz))|| 
(((plttype  ==  2)||(pfttype  =  6))&&{a  =  selx)&&(c  ==  selz))!| 
(((plttype  =  3)  ||  (plttype  ==  7))&&(a  ==  selx)&&(b  ==  sely)))  { 
switch  (plttype)  { 
case  1 :  plotData->yarray[i]  -  o; 
plotData->xarray{i]  =  a; 
break; 

case  2:  plotData->yarray(i)  =  o; 
plotData->xarray(i3  =  b; 
break; 

case  3:  plotData->yarray(i]  =  o; 
plotData->xarray{i]  =  c; 
break; 

case  5:  plotData->yarray(i)  =  p; 
plotData->xarray[i]  =  a; 
break; 

case  6:  plotData->yarray(i]  =  p; 
plotData->xanay(i]  =  b; 
break; 

case  7:  plotData->yarrayfi]  =  p; 
plotData->xarcay(i]  =  c; 
break; 

} 

if(i  =  U{ 

plotData->xlunlt  =  plotData->xarray(1]; 
plotData->xrunit  =  plotData->xanayf1]; 
plotData->ytunit  =  plotData->yarray(1]; 
plotData->ybunit  =  plotData->yarray(lj; 

)else{ 


A-115 


if  (piotOata->xarray{i]  <  piotData->)dunit) 
plotData->>dunrt  =  pfotData->xarrayfi]; 
if  (plotData->xarray[r)  >  plotData->xrunrt) 
pJotData->xrunrt  =  plotData->xanayfl]; 
if  (ptotData->yarray[iJ  <  plotData->yt>umt) 
plctData->ybunrt  =  plotOata->yarTay[i]; 
if  (ptotData->yarray(i]  >  plotData-»ytunit) 
plotData->ytunrt  =  plotData->yarrayfi]; 

} 

H-*-; 

} 

} 

> 

fdosefinfiie); 
ptotData->numxpts  =  i-1 ; 
if  {i-1  =  0)  { 

createMessageDiaiog  (topLevel,  "Near  Electric  Fields", 
"Graph  contains  no  data  points.",  XmOIALOG_MESSAGE); 
return  (-1); 

}etse 

return  (0); 

} 

static  int  getNH  (drawing_a) 

Widget  drawing  a; 

{ 

static  char  *NHstr{8]  =  { 

*Hx_nor  vs  X", 

"Hx_nor  vs  Y", 

"Hx_nor  vs  Z", 

"Hx  nor  vs  Frequency", 

"Hy~nor  vs  X", 

"Hy_norvsY", 

"Hy_nor  vs  Z". 

"Hy_nof  vs  Frequency*}; 
char  Iookfor1[22]; 
char  Iookfor2p4]; 
char  fline[30); 
int  i; 

float  curfreq; 
float  a.b.c.d.e.o.p; 

PlotData  *plotOata; 

I*  Get  data  structure  from  widget  for  storing  plot  data  */ 
XtVaGetValues  (drawing_a,  XmNuserData,  &plotData,  NULL); 


if  ((plttype  ~  1)||(plttype  ==  5)) 

spnntf{plotOata->trtlestr("%s.  Source  =%5d,  V  =%6.2f,  Z  =%6.2f,  Freq  =%6.2T, 
NHstr(plttype- 1  ).source,sely1selz,setfreq); 
else  if  {(plttype  ==  2}||{plttyp©  ==  6)) 

sprintf(plotData->tJtJestr."%s,  Source  =%5d,  X  =%6.2f,  Z  =%6.2f,  Freq  =%6.2T. 
NHstrtptttype-1  ].source,sebc,selz,selfreq); 
else  if  ((plttype  ==  3)||(prttype  -=  7)) 

sprintf(plotData->titiestr,"%s.  Source  =%5d,  X  =%6.2f,  Y  =%6.2f,  Freq  =%6.2T, 
NHstr{plttype- 1  ],  source,  sebc,  seiy.selfreq) ; 
else  if  ((plttype  ==  4)||{plttype  ==  8)) 

sprintf(plotData->titlestr1"<Xjsl  Source  =%5d,  X  =%6.2f,  Y  =%6.2f.  Z  =%6.2T, 
NHstr(ptttype~1],  source,  se  lx,  seiy.selz); 

i-1; 

strcpy(in_file,fi  le_name) ; 
strcat(in_file,mm); 

if  ((infile  =  fcpen(in_file .T*))  =  (FILE^O)  { 
printff\n\ttt  Rle  %s  could  not  be  opened.  \n",  in_file); 
ewt(1}; 

> 

r  handle  plot  types  4  and  8  differently  from  the  rest  V 
if  ((plttype  ==  4)||(plttype  ==  8))  { 
r  look  for  a  frequency  line  */ 
sprintf(lookfor1 FREQUENCY  ="); 
while  (fgets(line,  MAXLINE,  infile)  !=  NULL)  { 

"(line  ♦  12)  =  Vy; 
if  (strcmp(lookfor1,  line)  ==  0)  { 
strcpy(fline ,  line+ 1 3); 
printf("3:fline  is:%s...“  fline); 

•(fline  +  9)  =  *Vy; 
curfreq  =  atof(fline); 

1*  now  look  for  currect  source  7 
sprintf(lookfor2,"  SOURCE  :%5d", source); 
fgets(line,  MAXLINE,  infile); 

•(line  +  14)  =  *\CT; 
while(strcmp(lookfor2,line)  1=  0) 

{ 

if  (fgets(line,  MAXLINE,  infile)  —  NULL)  { 
createMessageDialog  (topLevel,  "Near  Magnetic  Fields", 

"Could  not  plot  Source  not  found."  XmDIALOG_MESSAGE); 
return  (-1); 

> 

•(line  +  14)  = 

> 

r  now  discard  next  two  lines  7 
fgets(line,  MAXLINE,  infile); 
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fgetsfline,  MAXLINE,  infile); 


T  now  scan  through  data  looking  for  match  to  x,y,and  z  V 
while  {(fscanf(infile,"%f  %f  %f  %f  %f  %f  %r, 
&a,&b,&c,&d,&e,&o,&p))  ==  7)  { 
if  ((a==setx)&&(b==seiy)&&(c==selz))  { 
plotData->xarray(i]  =  curfreq; 
if  (plttype  =  4)  plotData->yarrayfi]  =  d; 
if  (plttype  =  8)  plotData->yanayji]  =  e; 

*0  =  1){ 

plotData->xlunit  =  plotData->xarray[1]; 
ptotData->xrunit  =  plotData-»xarray(1]; 
plotData-»ytunrt  =  plotData->yarray(1]; 
plotData->ybunit  =  plotData->yarray(lj; 

>  else  { 

if  (piotData->xarrayfi]  <  plotData->xlunrt) 
plotData->xlunit  =  plotData->xarray(i]; 
if  (plotData->xarray{i]  >  plotOata->xrunit) 
plotOata->xrunit  =  plotData->xarray[i]; 
if  (plotData->yarray[i]  <  plotData->ybunit) 
plotData->ybunit  =  plotData->yarrayfi]; 
if  (piotData->yarray[i]  >  plotData->ytunit) 
plotOata->ytunit  =  plotData->yarTay{i]; 

} 

} 

} 

> 

> 

) 

else{ 

r  first  look  for  frequency  V 

sprintf{iookfort FREQUENCY  =%10.3f\selfreq); 

fgetsfline,  MAXLINE,  infile); 

•(line  +  22)  =  '\0‘; 
while(strcmp(lookfor1,line)  !=  0)  { 
if  (fgets(1ine,  MAXLINE,  infile)  ==  NULL)  { 
createMessageDialog  (topLevel,  “Near  Magnetic  Fields", 

“Could  not  plot  Frequency  not  found.",  XmD!ALOG__MESSAGE); 
return  (-1); 

> 

•(line  ♦  22)  =  *\0*; 

} 

/*  now  look  for  source  */ 
sprintf(lookfor2“  SOURCE  :%Sd",source); 
fgets(line,  MAXLINE,  infile); 

•(line  ♦  14)  =  '\0‘; 
while(strcmp(lookfor2,line)  1=  0)  { 
if  (fgetsOine,  MAXLINE,  infile)  ==  NULL)  { 
createMessageDialog  (topLevel.  “Near  Magnetic  Fields", 

“Could  not  plot  Source  not  found.",  XmDIALOG__MESSAGE); 
return  (-1); 

> 

•(line  ♦  14)  =  •\0*; 

} 

r  now  read  in  data  */ 
fgets(line,  MAXLINE,  infile); 
fgets(line,  MAXLINE,  infile); 
i  =  1; 

while  ((fscanf(infile,“%f  %f  %f  %f  %f  %f  %r, 

&a,  &b,  &c,  &d,  &e,  &o,  &p))  ==  7)  { 
if  ((((Plttype  =  1)||(plttype  ==  5))&&{b  =  sely)&&{c  ==  selz))!| 
(((plttype  ==  2)||(plttype  ==  6))&&(a  ==  selx)&&(c  ==  selz))|| 
(((plttype  ==  3) || (plttype  ==  7))&&(a  ==  sebc)&&(b  ==  sely)))  { 
switch  (plttype)  { 
case  1:  p!otData->yarray[i]  =  d; 
plotData->xarray(i]  =  a; 
break; 

case  Z  plotData->yarray(i]  =  d; 
plotData->xarray[i]  =  b; 
break; 

case  3:  plotData->yarray(i]  =  d; 
p!otData->xarray[i]  =  c; 
break; 

case  5:  plotData->yarrayJi]  =  e; 
plotData->xarray[i]  =  a; 
break; 

case  6:  plotData->yarray{i]  =  e; 
plotData->xarray[i]  =  b; 
break; 

case  7:  plotData*>yanayf]  =  e; 
plotData->xarray[i]  =  c; 
break; 

> 

if  0“  1){ 

plotData->xlunit  -  plotData*>xarrayP]; 
plotData->xrunit  =  plotData->xanayf1]; 
plotData->ytunit  =  plotData->yarray(1); 
plctData->ybunit  =  plotData->yarray(1); 

}  else  { 

if  (plctData->xa rrayfl]  <  plotData->)dunit) 
plotData->xlunit  =  plotData->xarray(i]; 
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if  (plctData->xa rrayfi]  >  plotData->xnjnit) 
piotData->xrunit  -  plotData-»xarray(tJ; 
if  (plotData->yarrayfi)  <  plotData->ybunit) 
piotData->ybunit=  plotData->yanayfi]; 
if  (plctData->yarrayfi]  >  plotData->ytunit) 
pkrtData->ytunit  =  plotData->yarrayfi]; 


) 

> 

> 

frioseOnfile); 
pkrtData->numxpts  =  i-1; 
if  0-1  =  0)  { 

createMessageDialog  (topLevel,  "Near  Magnetic  Fields", 
"Graph  contains  no  data  points.",  XmDlALOG_MESSAGE); 
return  (-1); 

>  else 
return  (0); 


static  void  drawingjinear(widget) 

Widget  widget 

{ 

int  i,  x,  y,  xwidth,  ywidth,  ixs,  iys; 

int  ixpos,  iypos,  iyO,  iyl,  ixO,  ixl,  deitaxpix,  deltaypix; 

float  xs,  ys,  xrange,  yrange; 

float  xdiv,  ydiv,  xinc,  yinc,  xpos,  ypos; 

float  xunit  yunit  deltax,  deltay, 

char  labeistrfll]; 

PtotOata  "plotData; 

XtVaGetVaIues(widget  XmNuserOata,  &plotOata,  NULL); 

SRGP  setColor  (2); 

x=100; 

y=100; 

xwidth=500; 

ywidth=500; 

SRGPjectangleCoord  (x,  y,  x+ xwidth,  y+ ywidth); 

xdiv=10; 

ydiv=5; 

xinc=(600-1 00)/xdiv; 
xpos=x; 
ry0=100; 
iyl  =600; 

for  (i=1;  i<=xdiv-1;  i++)  { 
xpos=xpos+xinc; 
ixpos=xpos; 

SRGPJineCoord  (ixpos,  700-iyO,  ixpos,  700-iyl); 

> 

yinc={600-1 00)/ydiv; 

ypos=y; 

ix0=100; 
ixl  =600; 

for  (i=1;  i<=ydiv-1;  i++)  { 
ypos=ypos+yinc; 
iypos=ypos; 

SRGP  lineCoord  (ixO,  700-iypos,  ixl ,  700-iypos); 

> 

r  xunit  label  */ 
iyl  =  620; 

deltax  =  (plotData->xrunit  -  plotData->xlunit)  /  xdiv; 
deitaxpix  =  50; 
xpos  =  100 -deitaxpix  -  15; 
xunit  =  plotData->xiunrt 
for  0=1;  i<=  xdiv+1;  i++)  { 
xpos=xpos+deltaxpix; 
ixpos=xpcs; 

sprintf(labelstr,  "%5 f.  xunit); 
labelstr(5]=  MD*; 

SRGP_text  (SRGP_defPoint(ixpos,  700-iyl),  labelstr); 
xunit=  plotData->xlu  nit+ (i'deltax); 

} 

T  yunit  label  */ 
ixl  =60; 

deltay={p!otData->ytunit-plotData->ybunit)/ydrv; 
deltaypix=100; 
ypos=1 00-deltaypix+5; 
yunit=plotData->ytu  nit 
for  0=1;  i<=  ydiv+1;  i++)  { 
ypos=ypos+dettaypix; 
iypos=ypos; 

sprintf (labelstr,  "%5r,  yunit); 
labelstrtS]  =  V7; 

SRGP_text  (SRGP_defPointf«1 , 700-iypos),  labelstr); 
yunit=plotData->ytunit-(i*deltay); 

> 
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r  draw  linear  title  V 

x=350-strlen(plotData->titlestr)*4; 

y=50; 

SRGP  text(SRGP_defPoint(x,  700-y),  plotData->titlestr); 


r  draw  linear  curve  */ 

SRGP_setColor  (4); 

SRGP_setUneWidth  (3); 
xrange=pkrtData->xrunit-plotData->x1unrt; 
yrange=plotData->ytunit-plotOata->ybunit; 
for  0=1;  i<=plotData->numxpts;  i++)  { 
xs  =  ((pk3tData->xarray(i]-plotData->xJunit)/xrang©)*(600-100)+100; 
ys  =  -1  *(((plotData-»  yarray(i)-ptotData->ytunityyTange)*(600-1 00)-1 00); 
ixs=xs; 
iys=ys; 

if  0==1)  {x=xs;  y=ys;  > 

SRGP_lineCoord(x,  700-y,  ixs,  700-iys); 
x=xs; 

y=y»; 

} 


static  void  drawing_smith(widget) 

Widget  widget; 

{ 

int  »,  x,  y,  x2,  y2,  ixs,  iys; 

float  vswrc_radius,  vswrc; 

float  vyt=  100,  vyb  =  600,  vxl  =  100,  vxr=  600,  wyt  =  1.0,  wyb  =  -1.0, 
wxi  =  -1.0,  wxr  =  1.0; 
float  rr,aa,bb,cc,dd,xw,yw,xs.ys; 
char  freqstrfl 0]; 

PlotData  *plotData; 

XtVaGetValuesfwidget,  XmNuserData,  &plotData,  NULL); 

SRGP  setColor  (2); 

x=350; 

y=100; 

x2=350; 

y2=600; 

SRGPJineCoord(x,  700-y,  x2,  700-y2); 

for  0=100;  i<350;  i+=62.5)  { 
x=i; 

if  (i==100)  y=i;  else  y=y* 2*62.5; 

x2=700-x*2; 

y2=x2; 

SRGP.ellipse  (SRGP_defRectangle(x,  700-(y+y2),  x+x2,  700-y)); 

> 

x  =  -150; 
y=350; 

SRGP_ellipseArc  (SRGP_defRectangle(x,  700-(y«-500),  x+500,  700-y),  0,  90); 

x=350;” 

y=350; 

SRGP_ellipseArc  (SRGP_defRectangle(x,  700- (y+ 500),  x+500,  700-y),  90,  180); 
vswrc=3; 

vswrc_radius=500.0*(((2*vswrc)/(vswrc+1))-1 .0); 

x=vswrc_radius; 

y=vswrc_radius; 

SRGP_ellipse  (SRGP_defRectang!e(350-x/2,  700-(350+y/2),  350+X/2,  700-(350-y/2))); 

x=0; 

y=50; 

SRGP_text(SRGP_defPoint(x,  700-y),  plotData->tittestr); 

P  draw  0,  90, 180,  270  degree  marks  */ 

x=620; 

y=355; 

SRGP_text(SRGP  defPoint(x,  700-y),  "+1"); 

x=348; 

y=90; 

SRGP_text(SRGP_defPoint(x,  700-y),  TT); 

x=70; 

y=355; 

SRGP_text(SRGP  defPoint(x,  700-y),  “-1“); 

x=345; 

y=620; 

SRGP_text(SRGP_defPoint(x,  700-y),  W); 

r  change  color  for  impedance  curve  */ 

SRGP_setColor  (4); 

SRGP~setLineWidth  (3); 

for  0=1;  i<=plotData->numxpts;  i++)  { 
r  smith  chart  to  pixel  screen  transformation  V 
sprintf(freqstr,“%6.2r,  plotData->freq[iD ; 
rr=plotData->xarray[i]; 
aa=rr-1; 

bb=plctData-»yarray[i]; 

cc=rr+1; 

dd=bb; 

yw  =  -{aa*cc+bb*dd)/(cc*cc+dd*dd); 
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xw=(bbVx-aaVJd)/(cc*cc+dd*dd); 

x»=((vxr-vxfV(wxr-Vvxi))*(xw-wxJ)+v)d; 

y*=  ((vyt-vyb)}  (wyt-wyb))  *  (yw-wyb)+vyb ; 

ixs=xs; 

iys=ys; 

if  0=1) 

{ x=x*  y=y»; } 

SRGP  lineCoordfa  700-y,  ixs,  700-iys); 
SRGPjext(SRGP_defPoint(ixs,  70anys),  freqstr); 
x=x»; 

y=y»; 

> 


static  void  drawing_polar(widget) 

Widget  widget; 

{ 

int  i,  x,  y,  x2,  y2,  be,  !y,  bes,  iys,  idbmin; 

float  xs,  y»,  a,  r,  absdb; 
float  dbouter,  dbinc,  dbmin; 
char  dbstrflOJ; 

PlotData  ‘plotData; 

XtVaGetValues(widget,  XmNuserOata,  &plotData,  NULL); 

SRGP  setColor  (2); 

x=350; 

y=100; 

x2=350; 

y2=600; 

SRGPJineCoordfr  700-y.  x2,  700-y2); 

X=1QQ; 

y=350; 

x2=600; 

y2=350; 

SRGPJineCoordfc  700-y.  x2.  700-y2); 

/*  draw  center  db  label  */ 

bc=350; 

ly=365; 

dbouter=20; 

dbinc=10; 

dbmin=dbouter  -  5  *  dbinc; 
idbmin=dbmm; 
sprintf(dbstr,"%3d", idbmin); 

SRGP_text(SRGP_defPoint(lx,  700-ly),  dbstr); 


for  0=100;  i<350;  i+=50)  { 
x=i; 

y=i; 

x2=700-x*2; 

y2=x2; 

SRGP_ellipse  (SRGP_defRectangle(x,  700-(y+y2),  x+x2,  700-y)); 
idbmin=idbmin  +  dbinc; 
sprintf(dbstr,**%3cr, idbmin); 
bc=50+x2/2; 

SRGP  text(SRGP_defPoint(lx,  700-ly).  dbstr); 

} 

dbmin=dbouter-5*dbinc; 

x=350-strten(piotData->trtlestr)*4; 

y=50; 

SRGP_text(SRGP_defPoint(x,  700-y),  plotData->titlestr); 

P  drawO,  90, 180,  270  degree  marks  V 

x=620; 

y=355; 

SRGP  text(SRGP_defPoint(x,  700-y).  "CT); 

x=345; 

y=90; 

SRGP  text(SRGP  defPoint(x,  700-y).  "90"); 

x=70; 

y=355; 

SRGP  text(SRGP_defPoint(x,  700-y),  "180"); 

x=340; 

y=620; 

SRGP_text(SRGP__defPoint(x,  700-y),  "270*0; 

/*  Draw  polar  plot  7 
SRGP_setColor  (4); 

SRGP_setLineWidth  (3); 
for  (r=1;  i<=plotData->numxpts;  i++)  { 
a=360-plotData->xarray[i]; 
a=a*(3.14159/180); 
absdb=dbmin-dbouter 
if  (absdb  <  0)  absdb*=-1; 
if  (plotData->yarcay[i]  <  dbmin) 
r=0; 
else 

r=(plotData->yarray(i]-dbmin)  /  absdb; 
r=r*((600-100V2); 
xs=r*cos(a)+350; 
ys=r*sin(a)+350; 
ixs=xs; 
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iys=ys; 

if  (i==l)  {x=xs;  y=ys;} 
SRGP_lineCoord(x,  700-y,  ixs,  700-iys); 
x=w; 

y=y*; 

} 


/*  Callback  to  deallocate  PlotData  structure  upon  destruction  of  window. 
7 

static  void  destroyCB  (widget) 

Widget  widget; 

{ 

PlotData  *piotData; 

XtVaGetValues  (widget,  XmNuserData,  &plotData,  NULL); 

XtFree  ((char  *)  plotData); 

>  r  end  destroyCB  V 
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A.12  cOutputMenu.c 


cOutputMenu.c: 

r 

*  Filename :  cOutputMenu.c 

*  Callbacks  for  the  Output  menu  items. 
V 


#indude  <stdio.h> 

#ndude  <stdlib.h> 

include  <sys/types.h»  /*  For  using  statO  7 
include  <sys/stath> 
include  <X11/lntrinsic.h> 

#mdude  <Xm/Xm.h> 
include  <Xm/Form.h> 
include  <Xm/Label.h> 
include  <Xm/PanedW.h> 

#mdude  <Xm/PushB.h> 
tfndude  <Xm/RovvColumn.h> 

#indude  <Xm/TexLh> 

#indude  "actionArea.h" 

#ndude  “filter.h- 

int  sourceDataflOO]; 

float  freqData[1 00]; 

int  numFreqData; 

float  phiOata[1 00],  thetaData[100]; 

int  numPhiOata,  numThetaOata; 

float  xDatafl  00],  yData[100],  zData[100); 

int  numXData,  numYData,  numZData; 

extern  char  ‘necOutputFilename,  *neclnputFilename; 

extern  void  createMessageDialog  0; 
extern  Boolean  isPoppedUp  0; 

extern  void  newEscapeActionO; 
extern  Widget  createScrolledTextO; 
extern  void  editScrolledText  0; 
extern  void  extract  0 1 
extern  int  necRunStatus  O', 
extern  void  needsflt  0; 

static  Widget  pIotDialog  =  NULL,  powerText,  sourceText,  freqText, 
tagText,  angleText,  sellText,  sel2Text, 
sei3Text,  angleLabel,  sell  Label,  se!2Label,  sel3Label; 
static  int  plotType; 

Boolean  alreadyFittered  0; 
static  void  cancelButtonCB  0; 
static  void  createOptionMenu  0; 
static  void  destroyOialogCB  0: 
static  void  plotButtonCB  0; 
static  void  plotTypeCB  0; 

static  enum  Options  optionType;  /*  Impedance,  Admittance,  Currents,  ...  V 

typedef  struct  _menu_item  { 
char  ’name; 

void  (*callback)  0; 

>  Menultem; 

static  Menultem  impedancePlotTypes  0  =  { 

{•Resistance  vs.  Frequency"}, 

{•Reactance  vs.  Frequency"}, 
f  Smith  Chart*}, 

NULL 

>; 


static  Menultem  admittancePlotTypes  □  =  { 
{•Conductance  vs.  Wavelength"), 
{Susceptance  vs.  Wavelength*}, 

NULL 

>; 

static  Menultem  currentsPlotTypes  0  =  { 
{Magnitude  vs.  X*}, 

{Magnitude  vs.  Y*}, 

{Magnitude  vs.  Z*}, 

{Magnitude  vs.  Segment*}, 

{Phase  vs.  X*}, 

{Phase  vs.  Y"}, 

{Phase  vs.  Z}, 

{Phase  vs.  Segment*}, 

NULL 

>: 


static  Menultem  chargePlotTypes  Q  =  { 
{Charge  vs.  X1}, 

{'Charge  vs.  Y*}, 
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{"Charge  vs.  Z*}, 
{"Charge  vs.  Segment*}. 
NULL 

>; 


static  Menultem  coupling PlotTypes  Q  =  { 
{"Isolation  vs.  Frequency}, 

NULL 

}; 


static  Menultem  nearElectricPIotTypes  0  =  { 
fEz  Normalized  vs.  X}, 
fEz  Normalized  vs.  Y*}, 
fEz  Normalized  vs.  Z*}, 
fEz  Normalized  vs.  Frequency*}, 
fE  Normalized  vs.  X*}, 
fE  Normalized  vs.  V}, 

{*E  Normalized  vs.  Z*}, 
fE  Normalized  vs.  Frequency*}, 

NULL 

>: 

static  Menultem  nearMagneticPkrtTypes  Q  -  { 
{*Hx  Normalized  vs.  X*}, 
fHx  Normalized  vs.  Y*}, 
fHx  Normalized  vs.  2*}, 
fHx  Normalized  vs.  Frequency}, 
fHy  Normalized  vs.  X1}, 
fHy  Normalized  vs.  Y*}, 
fHy  Normalized  vs.  Z*}, 
fHy  Normalized  vs.  Frequency}, 

NULL 

>; 


static  Menultem  radiationPlotTypes  Q  =  { 
{Vertical  vs.  Theta*}, 

{•Horizontal  vs.  Theta*}, 

{Vertical  vs.  Phi*}, 

{Horizontal  vs.  Phi*}, 

NULL 

>: 


static  Menultem  "optionTypes  Q  =  { 
impedancePlotTypes, 
admittancePlotTypes, 
currentsPlotT  ypes, 
chargePlotTypes, 
couplingPlotTypes, 
nearElectricPiotTypes, 
nearMagneticPIotTypes, 
radiationPlotTypes 

}; 

r . . . * . 

•  Opens  a  dialog  box  to  query  user  for  plotting  data  -  plot  type. 

•  source,  frequency,  tag  &  theta. 

*/ 

void  openPlotDialog  (w,  cType) 


Widget 

w; 

char 

•cType; 

Widget 

form,  pane,  rowColumn,  label,  actionA; 

int  i 

i>; 

char 

title  [50]; 

Arg 

args{13]; 

Xm  String 

string; 

Boolean 

bPower  =  False, 

bSource  =  False, 
bFreq  =  False, 
bTag  =  False, 
bAngle  =  False, 
bXYZfreq=  False, 

bXYZfreq2=  False. 

tryFilter  =  True; 
extern  Widget  top  Level; 
static  ActionArealtem  actionltemsQ  =  { 
fPlot**,  pIotB  uttonCB,  NULL), 
fCancel",  cancelButtonCB,  NULL}, 

>: 

static  char  "titieTypes  Q  =  { 

"Impedance**,  “Admittance",  Xunents",  "Charge",  "Coupling**, 

"Near  Electric  Fields",  "Near  Magnetic  Fields",  "Radiation  Patterns" 

>; 

extern  int  *EX_Wire; 

r  Check  NEC  run  status  before  continuing  */ 
if  (InecRunStatusO)  return; 

r  Make  sure  that  the  user  has  entered  a  NEC  Output  filename  V 
if  (necOutputFilename  —  NULL)  { 
createMessageDialog  (topLevel,  "Plot  Error, 

"NEC  Output  file  must  be  specified",  XmDIALOG_ERROR); 
return; 
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} 

if  (plotDialog  1=  NULL  &&  !isPoppedUp(plotDialog)}  { 
XtDestroyWidget(plotDialog); 
plotDialog  -  NULL; 

) 

r  Allow  only  one  plot  dialog  to  be  opened  at  a  time  */ 
if  (plotDialog  1=  NULL)  return; 

optionType  =  (enum  Options)  atoi  (cType); 
piotType  =  1; 
switch  (optionType)  { 
case  CURRENTS: 
tryf  ilter  =  False; 
b  Power  =  True; 
bSource  =  True; 
bFreq  =  True; 
bTag  =  True; 
break; 

case  CHARGE: 
tryfitter  =  False; 
bPower  =  True; 
bSource  =  True; 
bFreq  =  True; 
bTag  -  Toie; 
break; 

case  RADIATION: 
bSource  =  True; 
bFreq  =  True; 
bAngle  =  True; 
break; 

case  IMPEDANCE: 
bSource  =  True; 
break; 

case  ADMITTANCE: 
bSource  =  True; 
break; 

case  NEAR_ELECTRIC: 
tryFilter  =  False; 
bPower  =  True; 
bSource  =  True; 
bXYZfreq  =  True; 
break; 

case  NEAR_MAGNET1C: 
tryFilter  =  False; 
bPower  =  True; 
bSource  =  True; 
bXY2freq2  =  True; 
default 
break; 

> 

if  (tryFilter)  { 

if  (lalreadyfiitered  (fileExts[optionType])}  { 
needsflt  (optionType,  0); 

} 

} 

sprintf  (title,  "Plotting  Options  for  %s",  titleTypes(optjonTypeD; 
plotDialog  =  XtVaCreatePopupShell  (NULL, 
topLevelShellWidgetClass,  topLevel, 

XmNtitle,  title, 

XmNallowShellResize,  True, 

XmNdeleteResponse,  XmDESTROY, 

NULL); 

newEscapeAction  (plotDialog); 

XtAddCallback  (plotDialog,  XmNdestroyCallback,  destroyDialogCB,  NULL); 
n  =  0; 

XtSetArg  (args[n],  XmNsashWidth,  1);  n++; 

XtSetArg  (args[nj,  XmNsashHeight,  1);  n++; 

pane  =  XmCreatePanedWindow  (plotDialog,  "pane",  args,  n); 

XtManageChild  (pane); 

form  =  XmCreateForm  (pane,  "form",  NULL,  0); 
n  =  0; 

XtSetArg  (args  [n],  XmNrightAttachment,  XmATTACH_FORM);  n++; 
XtSetArg  (args  [nj,  XmNrightOffset,  10);  n++; 

XtSetArg  (args  [nj,  XmNtopAttachment,  XmATTACH_FORM);  n++; 
XtSetArg  (args  [nj.  XmNtopOffset,  10);  n*+; 

XtSetArg  (args  [nj,  XmNbottomAttachment  XmATTACH_FORM);  n++; 
XtSetArg  (args  [nj,  XmNbottomOffset  10);  n++; 
rowColumn  =  XmCreateRowColumn  (form,  “rowColumn",  args,  n); 
XtManageChild  (rowColumn); 

createOptionMenu  (rowColumn,  option  Types  [optionType]); 

XtSetArg  (args  [0],  XmNeditMode,  XmSiNGLE_LlNE_EDlT); 

XtSetArg  (args  [ij,  XmNcolumns,  11); 
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if  (bPower)  { 

powerText  =  XmCreatoText  (rowColumn,  "text",  args,  2); 

XtManageChild  (powerText); 

XmTextSetString  (powerText  “1000*0; 

> 

if  (bSource)  { 

extern  int  VoltageSourcesCount 
int  index; 

for  (index  =  0;  index  <  VoltageSourcesCount  index++) 
source  Data  [index]  =  EX_W  ire  [index]; 

sourceText  =  createScroiledT ext(rovvColumn,  “text",  args,  2, 
sourceData,  VoltageSourcesCount,  1); 

XtManageChild  (sourceText); 

} 

if  (bFreq)  { 

extern  int  FrequencyCount 
extern  int  *FRJFRQ,  *FR_NFRQ; 
extern  float  *FR_FMKZ,  *FR_DELFRQ; 

Int  i,  j  =  0,  step; 

fof  (i  =  0;  i  <  FrequencyCount;  H-+) 
if  (FR_(FRQ[i]  =  0)  { 
step  =  0; 

while  (step  <  FR_NFRQ[iD  { 
freqDataO++]  =  FR_FMHZ[i]  +  FR_DELFRQ[i]  *  step; 
step++; 

> 

> 

else  { 
step  =  0; 

while  (step  <  FR_NFRQ[i])  { 

freqDataO^+j  =  FR_FMH2[i]  *  pow((double)FR_DELFRQ(I],(double)step); 
step*-*-; 

) 

> 

freqText  =  create Scrol I edText(rowCoiumnt  "text",  args,  2, 
freqData,  j.  0); 

XtManageChild  (freqText); 

} 

if(bTag){ 

tagText  =  XmCreateText  (rowColumn,  "text",  args,  2); 

XtManageChild  (tagText). 

> 

if  (bAngle)  { 

extern  int  RadiationPattemCount 
extern  int  -RP_NPH.  *RP  NTH; 

extern  float  'RP_THETS.  *RP_PHIS,  *RP_DTH,  *RP_0PH; 
inti, J  =  0,  k  =  0.  step; 

for  (i  -  0;  i  <  RadiabonPattemCount;  i++)  { 
step  =  0; 

while  (step  <  RP_NTH[i])  { 
thetaDataQ++]  = RP_THETS[i]  +  RP_OTH[i]  *  step; 
step++; 

} 

step  =  0; 

while  (step  <  RP_NPH[i])  { 
phiData[k++]  =  RP_PHIS[i]  +  RP_DPH[iJ  *  step; 
step++; 

} 

} 

numThetaData  =  j; 
numPhiData  =  k; 

angleText  =  createScrolledText(rowColumn,  “text",  args.  2, 
phiData,  k,  0); 

XtManageChild  (angleText); 

} 

if  (bXYZfreq)  < 

extern  int  FrequencyCount  NearEIectricCount 
extern  int  "FRJFRQ,  *FR  NFRQ,  *NE  NRX,  *NE  NRY,  *NE_NRZ; 
extern  float  *FR_FMHZ,  *FR_DELFRQ,  *NE_XNR,  *NE_YNR.  *NE_ZNR, 
*NE_DXNR,  *NE_DYNR,  *NE_DZNR; 
int  i,  j  =  0.  x  =  0,  y  =  0,  z  =  0,  step; 


for  (i  =  0;  i  <  NearEIectricCount  i++)  { 

step  =  0; 

while  (step  <  NE  NRX[iD  { 
xData[x++]  =  NE_XNR[i]  ♦  NE_DXNR[i]  •  step; 
step++; 

) 

step  =  0; 

while  (step  <  NE_NRY[i])  { 
yOata[y++]  =  NE_YNR[i]  +  NE_DYNR[i]  *  step; 
step++; 

> 

step  =  0; 

while  (step  <  NE_NRZ[i])  { 
zData(z++]  =  NE_ZNR[i]  ♦  NE_DZNR[i]  *  step; 
sfcep*+; 
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> 

> 

numXData  =  x; 
numYData  =  y; 
numZData  =  r, 

for  fi  =  0;  i  <  FrequencyCount;  i++) 

If  (FRJFRQfl  ==  0)  { 
step  =  0; 

white  (step  <  FR  NFRQffl)  { 
freqDataQ-M-]  =  FR.FMHZp]  ♦  FR_DELFRQ[i]  *  step; 
step-M-; 

> 

) 

else  { 
step  =  0; 

white  (step  <  FR  NFRQ[i])  { 

freqDataG++]  =  FR_FMH2[i]  *  pow((double)FR_DELFRQfl,  (double 

)step); 

step++; 

> 

} 

numFreqData  =  j; 

sail  Text  =  createScrolledText(iTowColumn,  "text",  args,  2, 
yOata,  y,  0); 

XtManageChild  (sellText); 

selZText  =  aeateScrolledText(rowColumn,  "text-,  args,  2, 
zOata,  z,  0); 

XtManageChild  (sel2Text); 

se!3Text  =  createScrolledText(rowColurnnp  “text”,  args,  2, 
freqData,  j,  0); 

XtManageChild  (se!3Text); 

} 

if  (bXYZfreq2)  { 
extern  int  FrequencyCount; 
extern  int  ‘FRJFRQ,  *FR_NFRQ; 
extern  float  *FR_FMH2,  *FR_DELFRQ; 
extern  int  NearMagneticCount; 
extern  int  *NH  NRX,  *NH_NRY,  *NH  NRZ; 
extern  float  *NH_XNR,  *NH_YNR,  *NH_ZNR, 

•NHJ3XNR,  *NH_DYNR,  *NH_DZNR; 
int  i,  j  =  0,  x  =  0.  y  =  0,  z  =  0,  step; 

for  (i  =  0;  i  <  NearMagneticCount;  i++)  { 
step  =  0; 

while  (step  <  NH_NRX[i])  { 
xData{x++]  =  NH_XNR[i]  +  NH_DXNR[i]  •  step; 
step++; 

> 

step  =  0; 

while  (step  <  NH  NRYfi])  { 
yData  [/*■♦]  =  NH_YNR[i]  ♦  NH_DYNR[i]  *  step; 
step++; 

> 

step  =  0; 

while  (step  <  NH  NRZJi])  { 
zData[z++]  =  NH_2NR{i]  +  NH_DZNR[i]  *  step; 
step++; 

} 

) 

numXData  =  x; 
numYData  “  y; 
numZData  =  z; 

for  (t  =  0;  i  <  FrequencyCount;  i++) 
if  (FRJFRQp]  ==  0)  { 
step  =  0; 

white  (step  <  FR_NFRQp])  { 
freqData D++3  =  FR_FMHZ[i]  +  FR_DELFRQ[i]  •  step; 
step++; 

> 

> 

else  { 
step  =  0; 

white  (step  <  FR_NFRQ[i])  { 

freqDataQ++]  =  FR_FMHZ[i]  *  pow((double)FR_DELFRQR,  (double 

)step); 

step++; 

> 

> 

numFreqData  =  j; 

sellText  =  createScro!ledText(rowColumn,  "text**,  args,  2, 
yData,  y,  0); 

XtManageChild  (sellText); 

sel2Text  -  createScrolledText(rowCoiumn.  "text'*,  args,  2, 
zData,  z,  0); 

XtManageChild  (selZText); 

sel3Text  =  createScroHedText(rowColumn,  "text",  args,  2, 
freqData,  j,  0); 

XtManageChild  (sel3Text); 
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XtSetArg  (args  [n],  XmNleftAttachment,  XmATTACH_FORM);  n>+; 

XtSetArg  (args  [nj,  XmNrig htAttachment,  XmATTACH_WiDGET);  n++; 

XtSetArg  (args  [nj,  XmNrightWidget,  rowColumn);  n++; 

XtSetArg  (args  [nj,  XmNtopAttachment,  XrnATTACH_FORM);  n++; 

XtSetArg  (args  [n],  XmNtopOffset,  10);  n++; 

r 

XtSetArg  (args  [n],  XmNbcttomAttachment,  XmATTACH_OPPOSfTE_WIDGET);  n++; 
XtSetArg  (args  [nj,  XmNbottomWidget,  rowColumn);  n++; 

**/ 

rowColumn  =  XmCreateRowColumn  (form,  "rowColumn**,  args,  n); 

XtManageChiid  (rowColumn); 

n  =  0; 

string  =  XmStringCreateLtoR  (“Plot  Type:",  XmSTRING_DEFAULT_CHARSET); 
XtSetArg  (args  [n],  XmNlabelString,  string);  n*+; 

XtSetArg  (args  [nj,  XmNmarginTop,  7);  n++; 

XtSetArg  (args  [nj,  XmNmarginBottom,  7);  n++; 
label  =  XmCreateLabel  (rowColumn,  "labeT,  args,  n); 

XtManageChiid  (label); 

XmStringFree  (string); 

if  (bPower)  { 

string  =  XmStringCreateLtoR  (“Antenna  Power",  XmSTRING_DEFAULT_CHARSET); 

XtSetArg  (args  £0],  XmNlabelString,  string); 

label  =  XmCreateLabel  (rowColumn,  "label",  args,  3); 

XtManageChiid  (label); 

XmStringFree  (string); 

> 

if  (bSource)  { 

string  =  XmStringCreateLtoR  (“Source:",  XmSTR!NG_DEFAULT_CHARSET); 

XtSetArg  (args  [0],  XmNlabelString,  string); 

label  =  XmCreateLabel  (rowColumn,  labeT,  args,  3); 

XtManageChiid  (label); 

XmStringFree  (string); 

> 

if  (bFreq)  < 

string  -  XmStringCreateLtoR  (“Frequency:"  XmSTRING_DEFAULT_CHARSET); 

XtSetArg  (args  [0],  XmNlabelString,  string); 

label  =  XmCreateLabel  (rowColumn,  "label",  args,  3); 

XtManageChiid  (label); 

XmStringFree  (string); 

} 

if(bTag){ 

string  =  XmStringCreateLtoR  (“Tag:",  XmSTR I N G_D EF AU LT_C H A R SET) ; 

XtSetArg  (args  [0],  XmNlabelString,  string); 

label  =  XmCreateLabel  (rowColumn,  "label",  args,  3); 

XtManageChiid  (label); 

XmStringFree  (string); 

> 

if  (bAngle)  { 

string  =  XmStringCreateLtoR  ("Phi:",  XmSTRING_DEFAULT_CHARSET); 

XtSetArg  (args  (0),  XmNlabelString,  string); 

angleLabel  =  XmCreateLabel  (rowColumn,  "labeT,  args,  3); 

XtManageChiid  (angleLabel); 

XmStringFree  (string); 

> 

if  ((bXYZfreq)  ||  (bXYZfreq2))  { 

string  =  XmStringCreateLtoR  (“Y:",  XmSTRlNG_DEFAULT_CHARSET); 

XtSetArg  (args  [0],  XmNlabelString,  string); 

sell  Label  =  XmCreateLabel  (rowColumn,  "label",  args,  3); 

XtManageChiid  (sell  Label); 

XmStringFree  (string); 

string  =  XmStringCreateLtoR  ("£",  XmSTRlNG_DEFAL)LT_CHARSET); 

XtSetArg  (args  [0],  XmNlabelString,  string); 

se!2Label  =  XmCreateLabel  (rowColumn.  "labeT,  args,  3); 

XtManageChiid  (sel2Label); 

XmStringFree  (string); 

string  =  XmStringCreateLtoR  ("Frequency:",  XmSTRING_DEFAULT_CHARSET); 

XtSetArg  (args  [0],  XmNlabelString.  string); 

se!3Label  =  XmCreateLabel  (rowColumn,  “labeT,  args,  3); 

XtManageChiid  (se!3Label); 

XmStringFree  (string); 

} 

XtManageChiid  (form); 
r  Create  the  action  area  7 

actionA  =  createActionArea  (pane,  actionttems,  XtNumber  (actionltems)); 

XtPopup  (plotDialog,  XtGrabNone); 
w  =  w ,r  Make  compiler  happy  7 
>  r  end  openPkrtDialog  7 
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*  Opens  a  dialog  box  to  query  user  for  plotting  data  -  plot  type, 

*  source,  frequency,  tag  &  theta. 

V 

static  void  openPlotDialog2  (w,  text) 

Widget  w,  text; 

{ 

extern  void  runFilter  0; 

XtDestroyWidget  (XtParent  (w)); 
switch  (optionType)  { 
case  CURRENTS: 
runFilter  (text.  NULL,  CURRENTS); 
openPlotOiaiog  ((Widget)  NULL,  T); 
break; 

case  CHARGE 

runFilter  (text  NULL  CHARGE); 
open PtotDia log  ((Widget)  NULL  T); 
break; 

case  NEAR_ELECTRIC: 
runFilter  (text  NULL,  NEAR  ELECTRIC); 
openPlotOiaiog  ((Widget)  NULL  “5"); 

break; 

case  NEAR  MAGNETIC: 
runFilter  (text  NULL,  NEAR  ^MAGNETIC); 

openPlotOiaiog  ((Widget)  NULL  "81; 

default 

break; 

> 

w  =  w;  r  Make  compiler  happy  V 
)  r  end  openPlotDialog2  V 


*  Opens  a  dialog  box  to  query  user  for  plotting  data  -  plot  type, 

*  source,  frequency,  tag  &  theta. 

7 

void  powerPIotDialog  (w,  cType) 

Widget  w; 
char  “cType; 

{ 

optionType  =  (enum  Options)  atoi  (cType); 
switch  (optionType)  { 
case  CURRENTS: 

createPromptDialog  ("Enter  antenna  input  power", 
"Currents",  openPlotDialog2); 
break; 

case  CHARGE: 

createPromptDialog  ("Enter  antenna  input  power", 
“Charges",  openPlotDia!og2); 
break; 

case  NEAR_ELECTRIC: 

createPromptDialog  ("Enter  antenna  input  power", 

"Near  Electnc  Fields".  openPlotDialog2); 
break; 

case  NEARJMGNET1C: 

createPromptDialog  ("Enter  antenna  input  power", 

"Near  Magnetic  Fields",  openPlotDialog2); 
default 
break; 

} 

w  =  w ;  /*  Make  compiler  happy  7 
>  r  end  powerPIotDialog  7 


*  Coupling  is  the  only  menuitem  in  the  Output  menu  which  does  not  call 

*  openPlotOiaiog.  This  is  because  there  are  no  additional  inputs 

*  required  to  plot  coupling. 

7 

void  outputMenuCouplingCB  (void) 

{ 

extern  void  needsPlot  (}; 
extern  Widget  topLevel; 

r  Check  NEC  run  status  before  continuing  7 
if  (InecRunStatusO)  return; 

1*  Make  sure  NEC  Output  file  has  been  specified  7 
if  (necOutputFilename  ==  NULL)  { 
createMessageDialog  (topLevel,  "Plot  Error", 

“NEC  Output  file  must  be  specified",  XmDIALOG_ERROR); 

return; 

} 

needsfit  (COUPLING,  0); 
needsPlot  ("CP", 

}  r  end  outputMenuCouplingCB  7 


*  Saves  the  selected  plot  type  into  ‘plotType'. 

*  Displays  the  appropriate  input  labels  when  the  user  changes  the 
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•  plot  type  for  Near  Electric  Reids  or  Radiation  Patterns. 

V 

static  void  plotTypeCB  (w.  type) 

Widget  w; 
int  type; 

{ 

Xm  String  labell .  Iabel2,  label3; 

plotType  -  type; 

i  ((optionType  =  NEAR_ELECTR1C) [|(optionT ype  ==  NEAR_MAGNETIC))  { 
switch  (plotType)  { 
ease  l:  r  Ez  Normalized  vs.  X  7 
case  5: 

labell  =  XmStringCreateSimple  PY:*}; 
la  be  12  =  XmStringCreateSimple  fZ:"); 
labet3  =  XmStringCreateSimple  ("Frequency:”); 
edctScrolledText(sel1Text  yData,  numYData,  0); 
editScroliedText(sel2Text  2 Data,  numZData,  0); 
editScrolledText(sel3Text,  freqData.  numFreqData,  0); 
break; 
ease  Z 
case  6: 

labell  =  XmStringCreateSimple  pC”); 
label2  =  XmStringCreateSimple  C^:-); 
label3  =  XmStringCreateSimple  ("Frequency:"); 
editScroUedText(sel1Text,  xData,  numXData,  0); 
edrtScrolledT ext(sel2T ext  zData,  numZData,  0); 
editScrollodText(sel3Text,  freqData.  numFreqData,  0); 
break; 
case  3: 
case  7: 

labell  =  XmStringCreateSimple  ("X:"}; 
la  be  12  =  XmStringCreateSimple  ("Y:"); 

Iabel3  =  XmStringCreateSimple  ("Frequency:"); 
editScrolledText(sel1Text  xData,  numXData,  0); 
editScrolledText(sel2Text,  yData,  numYData,  0); 
edrtScrolle<rrext(sel3Text  freqData,  numFreqData,  0); 
break; 
case  4: 
cased: 

labell  =  XmStringCreateSimple  pC“); 

Iabel2  =  XmStringCreateSimple  ("Y:"); 
la  be  13  =  XmStringCreateSimple  fZ:"); 
editScrolledText(sel1Text  xData,  numXData.  0); 
editScroHe<frext(sei2Text,  yData,  numYData,  0); 
editScrolledText(sel3Text,  zData,  numZData,  0); 
break; 

XtVaSetValues  (sellUbel,  XmNlabelString,  labell.  NULL); 

XtVaSetValues  (set2Label,  XmNlabelString.  Iabel2,  NULL); 

XtVaSetValues  (sel3Label,  XmNlabelString.  Iabel3,  NULL); 

XmStringFree  (labell); 

XmStringFree  (Iabel2); 

XmStringFree  (labe!3); 

>  else  if  (optionType  =  RADIATION)  { 
if  ((plotType  =  1)  ||  (plotType  =  2))  { 

labell  =  XmStringCreateSimple  ("Phi:"); 
editScrolledText(angIeTexL  phiData,  numPhiData,  0); 

) 

else  { 

labell  =  XmStringCreateSimple  (’Theta:"); 
editScrolledTextfangleText,  thetaData,  numThetaData,  0); 

> 

XtVaSetValues  (angleLabel,  XmNlabelStnng,  labell,  NULL); 

XmStringFree  (labell); 

> 

w  =  w ;  r  Make  compiler  happy  7 
>  r  end  plotTypeCB  7 

r . . . . . . 

*  Destroys  the  widget  when  cancel  button  is  selected. 

7 

static  void  cancelButtonCB  (void) 

{ 

XtDestroyWidget  (plotDialog); 

}  r  end  cancelButtonCB  7 

r . . . . / 

static  void  plotButtonCB  (void) 

{  static  char  ‘codes  Q  =  fT*.  "A",  “CR“,  “Q”,  "CP",  "NE",  "NH“,  “PT}; 
char  inputs  [80],  ‘string; 
extern  void  needsPlot  0; 
extern  void  runFilter  0; 
int  source,  tag; 

float  freq.  angle,  sell,  se!2,  se!3; 

switch  (optionType)  { 
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case  IMPEDANCE: 
string  =  XmTextGetString  (sourceText); 
source  =  atoi  (string); 

XtFree  (string); 

sprintf  (inputs,  "%i  %i“,  plotType,  source); 
break; 

case  ADMITTANCE: 
string  =  XmTextGetString  (sourceText); 
source  =  atoi  (string); 

XtFree  (string); 

sprintf  (inputs,  “%i  %»",  plotType,  source); 
break; 

case  CURRENTS: 

runFilter  (powerText  NULL,  CURRENTS); 
case  CHARGE: 
if  (opt>onType  =  CHARGE) 
runFilter  (powerText  NULL,  CHARGE); 
string  =  XmTextGetString  (sourceText); 
source  =  atoi  (string); 

XtFree  (string); 

string  =  XmTextGetString  (freqText); 
freq  =  atof  (string); 

XtFree  (string); 

string  =  XmTextGetString  (tagText); 
tag  =  atoi  (string); 

XtFree  (string); 

sprintf  (inputs,  **%i  %i  %f  %i",  plotType,  source,  freq,  tag); 
break; 

case  NEAR_ELECTRIC: 
runFilter  (powerText  NULL,  NEAR_ELECTRIC); 
string  =  XmTextGetString  (sourceText); 
source  =  atoi  (string); 

XtFree  (string); 

string  -  XmTextGetString  (sell Text); 
sell  =  atof  (string); 

XtFree  (string); 

string  =  XmTextGetString  (sel2Text); 
sel2  =  atof  (string); 

XtFree  (string); 

string  =  XmTextGetString  (se!3Text); 
sel3  =  atof  (string); 

XtFree  (string); 

sprintf  (inputs,  “%i  %i  %f  %f  %f*.  plotType,  source,  sell,  sel2,  sel3); 
break; 

case  NEAR  MAGNETIC: 
runFilter  (powerText,  NULL,  NEAR_MAGNET1C); 

String  =  XmTextGetString  (sourceText); 
source  =  atoi  (string); 

XtFree  (string); 

string  =  XmTextGetString  (seMText); 
sell  =  atof  (string); 

XtFree  (string); 

string  -  XmTextGetString  (sel2Text); 
sel2  =  atof  (string); 

XtFree  (string); 

string  =  XmTextGetString  (sel3Text); 
se!3  =  atof  (string); 

XtFree  (string); 

sprintf  (inputs,  "%i  %i  %f  %f  %f*,  plotType,  source,  sell ,  se(2.  sel3); 
break; 

case  RADIATION: 

string  =  XmTextGetString  (sourceText); 
source  =  atoi  (string); 

XtFree  (string); 

string  =  XmTextGetString  (freqText); 
freq  =  atof  (string); 

XtFree  (string); 

string  =  XmTextGetString  (angleText); 
angle  =  atof  (string); 

XtFree  (string); 

sprintf  (inputs,  "%i  %i  %f  %f\  plotType,  source,  freq,  angle); 

default 

break; 

> 

XtDestroyWidget  (plotDiaiog); 
needsPlot  (codesIoptionTypej,  inputs); 

)  P  end  plotButtonCB  */ 

r . . . . 

*  Set  the  plotDiaiog  to  NULL  when  window  is  destroyed. 

V 

static  void  destroyDialogCB  (void) 

{ 

plotDiaiog  =  NULL; 
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>  r  dcstroyOiaJogCB  7 


r . 

*  Creates  a  option  menu  from  the  array  of  data  structure  Menuttem 
7 

static  void  createOptionMenu  (parent,  menuttems) 

Widget  parent; 

Menuttem  "menultems; 

{ 

Widget  menuPane,  widget; 

int  .  i; 

Arg  args(2]; 

Xm  String  stnng; 

menuPane  =  XmCreatePulldcwnMenu  (parent  "menuPane",  NULL,  0); 

for  (i  =  0;  men  ultemsjT].  name  1=  NULL;  i++)  { 
widget  =  XmCreatePushButton  (menuPane,  menultems[i].name,  NULL,  0); 
XtAddCallback  (widget  XmNactivateCaUback,  (XtCallbackProc)  plotTypeCB, 
(XiPointer)  (i*1)); 

XtManageChild  (widget); 

} 

string  =  XmStringCreateSimple  f); 

XtSetArg  (args(0],  XmNsubMenuld,  menuPane); 

XtSetArg  (argsflj,  XmNlabelString,  string); 

widget  =  XmCreateOptionMenu  (parent  "menu",  args,  2); 

XtManageChild  (widget); 

XmStringFree  (string); 

}  r  end  createOptionMenu  7 

r . . . . 

*  Returns  True  if  the  filter  program  has  already  been  run  for  the 

*  optiontype.  Otherwise,  returns  False. 

7 

Boolean  alreadyFiltered  (extension) 
char  "extension; 

{ 

char  fileName  [132J,  "ptr 

struct  stat  buf,  buf2; 

Boolean  filtered; 

r  Construct  name  of  filtered  file  7 
strcpy(fi!eName,  necOutputFilename); 
ptr  =  strTchr(fileName1\'); 
if  (ptr)  *(++ptr)  =  'W; 
strcat  (fileName,  extension); 

r  Get  file  status  7 

if  (stat  (fileName,  &buf)  ==  -1)  r  Probably  doesn’t  exist..  7 
return  (False); 

r  Return  False  if  time  stamp  is  earlier  than  necOutputFilename  7 
stat  (necOutputFilename,  &buf2); 
if  (buf.st_mtime  >  buf2.st_mtime) 
filtered  =  True; 
else 

filtered  =  False; 
return  (filtered); 

>  /*  end  alreadyFiltered  7 


void  openPrinterWindow  (void) 

{ 

extern  Widget  topLevel; 

createMessageDialog  (topLevel,  "Print  Window*’, 

"Click  on  window  to  be  printed."  XmDIALOG_ERROR); 


system 

("echo  V*%1  B\"  >  /dev/tty01 ;  xwd  j  xpr  -device  Ijet  -rv  |  lpr*0; 

}  r  openPrinterWindow  7 

t . * . / 

void  printfw,  list) 

Widget  w. 

Widget  list; 

{ 

int  position; 

XtVaGetValues(list  XmNtopItemPosition,  Sposition,  NULL); 
fprintf(stderr,  "position  =  [%d]\n",  position); 

w  =  w,  r  Make  compiler  happy  7 

> 

t . / 

void  outputTextCB  (w,  nextText) 

Widget  w,  nextText; 
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{ 

extern  Widget  geflopShellO; 
XtSetKeyboardFocus  (getTopShell(w),  nextText); 
w  =  w;  /*  Make  compiler  happy  */ 

>  /*end  nodeCoordTextCB  */ 


A.13  fHelp.c 


fHelp.c: 

r 

*  Filename :  fHelp.c 

* 

*  Procedure*  for  creating  the  help  window 
•/ 

include  <stdio.h> 
include  <stdlib.h> 
include  <X11 /Intrinsic.  h> 
include  <Xm/Xm.h> 
include  <Xm/Label.h> 

#inciude  <Xm/MessageB.h> 

#indude  <Xm/RowColumn.h> 
include  "control.  h“ 

#ifdef  NOTJUOSAJCJHELP 

include  <Xm/Usth» 
include  <Xm/PanedW.h> 
include  <Xm/SelectioB.h> 
include  <Xm/Texth> 

include  <X1 1/Xos.h>  /*  for  the  indexQ  function  V 


extern  Widget  topLevel; 

int  MosaicPID  =  0;  1*  Process  ID  number  for  Mosaic  V 

#ddef  NOTMOSAIC_HELP 

static  Widget  helpText  heipList; 
static  char  hefpIndexFile  Q  =  “toc.bcT; 
static  char  helpDataFile  Q  =  “help.txt"; 

static  void  listCB  0; 


•  Opens  a  window  for  Help 
•/ 

void  openHelpWindow  (w) 

Widget  w; 

{ 

Widget  dialog,  pane; 

Arg  args  [6J; 
int  textPos  =  0; 

RLE  fp; 
char  buf  [200]; 

Xm String  string; 

extern  FILE  "efopen  0; 

extern  void  newEscapeActionO; 

/*  Build  the  text  window  V 
dialog  =  XtVaCreatePopupShell 
(NULL,  topLevelShellWidgetClass.  XtParent  (w), 

XmNtitle,  “User's  Manuar, 

XmNallowShellResize,  True, 

XmNdeleteResponse,  XmUNMAP. 

NULL); 

newEscapeAction(dialog}; 

XtSetArg  (args[0],  XmNsashlndent  -25); 

XtSetArg  (argsflj,  XmNsashHeight,  15); 

XtSetArg  (args[2),  XmNsashWidth,  15); 

pane  =  XmCreatePanedWindow  (dialog,  “pane",  args,  3); 

XtManageChild  (pane); 

XtSetArg  (args[0],  XmNvisibleltemCount  10); 
heipList  =  XmCreateScrolledList  (pane,  "list",  args,  1); 

XtAddCallback  (heipList  XmNbrowseSelectionCallback,  listCB,  NULL); 
XtManageChild  (heipList); 

XtSetArg  (args[0],  XmNrows,  20); 

XtSetArg  (argsflj,  XmNcolumns,  80); 

XtSetArg  (args[2J,  XmNeditable,  False); 

XtSetArg  (args[3],  XmNblinkRate,  0); 

XtSetArg  (args(4},  XmNcursorPositionVisible,  False); 

XtSetArg  (args(5J,  XmNeditMode,  XmMULTl_LINE_EDIT); 
helpText  =  XmCreateScrolledText  (pane,  “text",  args,  6); 
XtManageChild  (helpText); 

r  Open  the  help  index  file  V 
if  ((fp  =  efopen  (helplndexRle,  “O)  ==  NULL) 
return; 

f  Read  the  index  data  */ 
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while  ((fgets  (buf,  200,  fp))  1=  NULL)  { 
r  Remove  the  carriage  return  symbol  */ 
buf  [strlen(buf)  - 1]  =  ’\0‘; 
string  =  XmStringCreateSimple  (buf); 

XmListAddltem  (helpList  string,  0); 

XmStringFree  (string); 

} 

fclose  (fp); 

/•  Open  the  help  data  file  V 
if  ((fp  =  efopen  (helpDataFile,  "O)  ==  NULL) 
return; 

r  Read  the  data  V 

while  ((fgets  (buf,  200,  fp))  1=  NULL)  { 

XmTextinsert  (helpText,  textPos,  buf); 
textPos  ♦=  strien  (buf); 

> 

fclose  (fp); 

XtPopup  (dialog,  XtGrabNone); 

)  r  end  openViewWindow  */ 

r . 

•  Callback  for  list  widget  When  user  selects  a  list  item,  a  search 

*  is  made  in  the  text  box  for  it 
V 

static  void  listCB  (w,  clientData,  cbs) 

Widget  w; 

XtPointer  dientData; 

XmListCalibackStruct  *cbs; 

{ 

char  ’string,  ’searchstring,  ’p; 
int  length; 

Boolean  found  =  False; 

XmTextPosrtion  pos; 

r  Get  the  item  selected  */ 

XmStringGetLtoR  (cbs->item,  XmSTRING_OEFAULT_CHARSET,  &searchString); 
length  =  strien  (searchstring); 

r  Get  the  help  data  text  */ 

string  =  XmTextGetString  (helpText); 

r  Start  searching  */ 

for  (p  =  string;  p  =  index  (p,  *searchString);  p++) 
if  (Istmcmp  (p,  searchstring,  length))  { 
found  =  True; 
break; 

> 

r  if  Found...  V 

pos  =  (XmTextPosition)  (p  -  string); 

XmTextSetTopCharacter  (helpText  pos); 

XtFree  (searchstring); 

XtFree  (string); 

r  Make  compiler  happy  V 
w  =  w; 

clientData  =  clientData; 

>  r  end  listCB  V 
#endif 

void  openAboutWindow  0 

{ 

Widget  messageBox.  label; 

Xm String  okString,  xmtitie; 

Arg  args  [5]; 
int  n  =  0; 

okString  =  XmStringCreateSimple  ("OK"); 

xmtitie  =  XmStringCreateLtoR  ("About  NEEDS",  XmSTRING_DEFAULT_CHARSET); 
XtSetArg  (args  (n),  XmNdialogTitie,  xmtitie);  n++; 

XtSetArg  (args  [n],  XmNautoUnmanage,  False);  n++; 

XtSetArg  (args  [nj,  XmNcancelLabelString,  okString);  n++; 

XtSetArg  (args  [nj.  XmNdialogStyle,  XmDIALOG_FULL_APPLICAT10N_MODAL);  n++; 
XtSetArg  (args  (nj,  XmNdialogType,  XmDIALOG_MESSAGE);  n++; 
messageBox  =  XmCreateMessageDialog  (topLevel,  "About  NEEDS",  args,  n); 

XtAddCallback  (messageBox,  XmNcancelCaltback, 

(XtCailbackProc)  XtDestroyWidget  NULL); 

XtUnmanageChild  (XmMessageBoxGetChild  (messageBox,  XmDIALOG_OK_BUTTON)); 
XtUnmanageChild  (XmMessageBoxGetChild  (messageBox,  XmDIALOG_HELP_BUTTON)); 

XmStringFree  (okString); 

XmStringFree  (xmtitie); 

r  Add  text  describing  NEEDS  version  &  responsible  parties  */ 

{ 
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Widget  rowColumn; 

Xm  String  xmstr; 

rowColumn  =  XtVaCreateWidget 
f  rowColumn",  xmRowColumnWidgetCtass,  message  Box, 

XmNtsAligned,  True, 

XmNentryAJignment,  XmAUGNMENT  CENTER, 

NULL); 

xmstr  =  XmStringCreateSimple  ("NEEDS"); 

XtSetArg  (args(0],  XmNlabelString,  xmstr); 

label  =  XmCreateLabel  (rowColumn,  “linel",  args,  1); 

XtManageChild  (label); 

XmStringFree  (xmstr); 

xmstr  =  XmStringCreateSimple  ("(Numerical  Bectromagnetic"); 

XtSetArg  (args[0],  XmNlabelString,  xmstr); 

label  =  XmCreateLabel  (rowColumn,  "line2“,  args,  1); 

XtManageChild  (label); 

XmStringFree  (xmstr); 

xmstr  =  XmStringCreateSimple  (“Engineering  Design  System)"); 

XtSetArg  (args[0j,  XmNlabelString,  xmstr); 

label  =  XmCreateLabel  (rowColumn,  "Iine3“,  args,  1); 

XtManageChild  (label); 

XmStringFree  (xmstr); 

xmstr  =  XmStringCreateSimple  (VERSION); 

XtSetArg  (argsfO],  XmNlabelString,  xmstr); 

label  =  XmCreateLabel  (rowColumn,  **line4",  args,  1); 

XtManageChild  (label); 

XmStringFree  (xmstr); 

xmstr  =  XmStringCreateSimple  (RELEASE); 

XtSetArg  (argsfD],  XmNlabelString,  xmstr); 

label  =  XmCreateLabel  (rowColumn,  “Iine5",  args,  1); 

XtManageChild  (label); 

XmStringFree  (xmstr); 

label  =  XmCreateLabel  (rowColumn,  "  args,  0); 

XtManageChild  (label); 

xmstr  =  XmStringCreateSimple  (“A  Product  of  NAVSEA"); 

XtSetArg  (args[0],  XmNlabelString,  xmstr); 

label  =  XmCreateLabel  (rowColumn,  linefi".  args,  1); 

XtManageChild  (label); 

XmStringFree  (xmstr); 

xmstr  =  XmStringCreateSimple  (“EMENG  Program  Manager  D.  R.  Cebulski"); 

XtSetArg  (args[0),  XmNlabelString,  xmstr); 

label  =  XmCreateLabel  (rowColumn.  "Iine7*\  args,  1); 

XtManageChild  (label); 

XmStringFree  (xmstr); 

xmstr  =  XmStringCreateSimple  (“NAVSEA  03K2,  (703)  602-7244  x200"); 

XtSetArg  (args[0J,  XmNlabelString,  xmstr); 

label  =  XmCreateLabel  (rowColumn,  "1ine8",  args,  t); 

XtManageChild  (label); 

XmStringFree  (xmstr); 

label  -  XmCreateLabel  (rowColumn,  “  ",  args,  0); 

XtManageChild  (label); 

label  =  XmCreateLabel  (rowColumn,  *  ",  args,  0); 

XtManageChild  (label); 

xmstr  =  XmStringCreateSimple  ("Naval  Command,  Control  and  Ocean  Surveillance  Center"); 

XtSetArg  (args[0],  XmNlabelString,  xmstr); 

label  =  XmCreateLabel  (rowColumn,  "line9",  args,  1); 

XtManageChild  (label); 

XmStringFree  (xmstr); 

xmstr  =  XmStringCreateSimple  ("RDT&E  Division"); 

XtSetArg  (args[0],  XmNlabelString,  xmstr); 

label  =  XmCreateLabel  (rowColumn,  "linelO",  args,  1); 

XtManageChild  (label); 

XmStringFree  (xmstr); 

xmstr  -  XmStringCreateSimple  (“San  Diego,  California  92152-5001"); 

XtSetArg  (args[0].  XmNlabelString,  xmstr); 

label  =  XmCreateLabel  (rowColumn,  "linell",  args,  1); 

XtManageChild  (label); 

XmStringFree  (xmstr); 

XtManageChild  (rowColumn); 

> 

XtManageChild  (messageBox); 

}  /*  end  openAboutWindow  V 


void  openMosaicWindow  Q 
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{ 

static  char  command  0  =  "mosaic  -homo  needs.htmP; 

if  ((McsaicPID  =  fork  0)  ==  0) 
exedp  f/bin/sh",  "sh",  "-c",  command,  (char*)  0); 


)  /*  end  openMosaicWindow  */ 


A.14  needs.html,  needsin1.html 


needs.html: 

<H1><B> Numerical  Sectro  magnetic  Engineering  Design  System 
(NEEDS)<F» 

WORKSTATION  ON-UNE  HELP</B></H1> 

<hf> 

The  Help  Contents  lists  the  available  Help  topics.  Use  the  scroll  bar  to  see  entries  not  currently  visible  in  the  window. 

<H1><B>MENU  BAR</B></H1> 

The  Menu  Bar  is  located  at  the  top  of  the  NEEDS  application,  just  below  the  Title  Bar.  The  following  describe  each  of  the  menu  items.  Hot  keys  for  accessing 
the  specific  options  are  also  indicated. <P> 

<ul> 

<li><A  HREF=“needfile.html#file“><strong>nLE</strong></A> 

<li><B»INPUT</B> 

<ut> 

<li><A  HREF=“comments.htrnl#cornments,*>COMMENTS</A> 

<li><A  HREF="needsin1  .htm#geometr/*>GEOMETRY  DESCRIPT10N</A> 

<li><A  HREF=^ieedsin2.html#eloctricar>EDrT  CONTROL  CARDS</A> 

</ul> 

<li><8>EXECUTE</B> 

<UL> 

<L><A  HREF^execute.htmftfOESCRIFnON*^ DESCRIPTION  SUMMARY  -  Ctl+D</A> 

<U><A  HREF=“execute.htmWdiagnostic“>DlAGNOSTlCS  -  Shf+D</A> 

<U><A  HREF=“execute.html#njn“>NEC-MOM  EXECUTE  -  Ctl+X</A> 

<U><A  HREF^execute.html#status“>NEC-MOM  RUN  STATUS  -  Shf+X</A> 

<AJL> 

<I»><B>RESULT</B></A> 

<UL> 

<Li><A  HREF=-resulthtml#texT>TEXT</A> 

<U><A  HREF="resulthtmt#plor>PLOT</A> 

<U><A  HREF=“resulthtmWvisuar>VtSUAU2AT10N</A> 

</UL> 

<li><A  HREF=*‘noutputhtml#outpur><li>OLnPUT</A> 

</ul> 

<H1><B>MISCEUANEOUS  TOPiCS</B></H1> 

<UL> 

<U><A  HREF  =  "oleo.htm t#PROCESS^> MODELING  PROCESS</A> 

<U><A  HREF  =  "oieo.htm f#DlALOG~>DIALOG  WINDOWS</A> 

<U><A  HREF  =  “oleo.htmt#CUSTOM**>CUSTOMl2AT10N</A> 

<U><A  HREF  =  "oleo.htmWFILES^NEEDS  WORKSTATION  FILES</A> 

<U><A  HREF  =  "oleo.html#UMfr>NEEDS  UMITAT10NS</A> 

<L><A  HREF  =  “evaluate.html#evaP> EVALUATION  OF  METHOD  OF  MOMENTS  MODELING</A> 

<AJL> 


needsin1.html: 

<A  NAME=“geometry**><H3>GEOMETRY  DESCRlPT!ON</H3></a> 


The  following  describe  each  of  the  submenu  items.  The  hot  keys  for  accessing  the  specific  options  are  also  indicated. 


<ut> 


<li><A  HREF="geometry.htmi#node“>NODE  COORDINATES  -  Ctl+N</A> 

<li><A  HREF=*geometry.html#wire“> STRAIGHT  WIRES  -  C8+W</A> 

<li><A  HREF="geometry.html#tapered">TAPERED  WIRES  -  Shf+W</A> 

<li><A  HREF=“geometry.html#catenary*>CATENARY  WIRES  -  Ctl+C</A> 

<li><A  HREF=“geometry.html#arc“>WIRE  ARC  -  Ctl+A</A> 

<li><A  HREF=“geometry.html#helix,4> HELIX  OR  SPIRAL</A> 

<li><A  HREF="geometry.htmWmesh“>WIRE  MESH  SURFACE  -  CtHZ</A> 

<li»<A  HREF=**geometry.html#suiface,*> SURFACE  PATCHES</A> 

<li><A  HREF=“geometry.html#multiple">MULTlPLE  PATCH  QUADRANGLE  SURFACE  </A> 
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<ii»<A  HREF=’,geometry.htm{#transformM>TRANSFORMA'nONS  -  Ctt+T</A> 
<II><A  HREF=“geometry.html#rotate“>R0TAT10NS  *  Shf+T</A> 

<II><A  HREF=“goomotry'.htmt#foflocr>REFLECT10NS  -  Cti+R</A> 

<II><A  HREF=“geometry.html#spirar> SPIRAL  ORDERING</A> 

<li><A  HREF=*goometry.html#igem">CAD  INTERFACE</A> 

<li><A  HREF=“g0ometry.htm{#orderK>EOrr  CARD  ORDER</A> 

</ul> 
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A.15  cVisual.c,  fVisual.c 


cVisual.c: 

r 

*  Callback  routines  for  the  Visualization  Window 
V 

♦include  "control. h" 

extern  Widget  visuatShell; 
extern  int  necRunStatus  0; 

void  openVisualWindow  0 

{ 

if  (visualShell  =  NULL)  createVisualWindow  Q; 
XtPopup  (visualShell,  XtGrabNone); 


fVisual.c: 

r 

*  Procedures  for  creating  the  Visualization  Window 
*/ 


include  "control.h" 

#indude  <stdio.h> 

#indude  <stdlib.h> 
include  <Xm/Form.h> 

#indude  <Xm/Frame.h> 

♦include  <Xm/Label.h> 

♦include  <Xm/PanedW.h> 

♦include  <Xm/RowColumn.h> 

♦include  <Xm/TexLh> 
include  <Xm/ToggleB.h> 

♦include  “action  Area.  hM 
♦include  "filter.h" 

extern  Widget  topLevet; 

Widget  visualShell  -  NULL; 
int  visualType  =  1; 

static  Widget  visualLog,  sourceLabef,  sourceText,  freq Label,  freqText, 
pwrLabel,  pwrText; 

r  Forward  declarations  for  callbacks  "/ 

extern  void  cancelButtonCB  0; 
static  void  create3dlmage  0; 

static  void  visualButtonCB  0; 

static  void  visualOkButlonCB  0; 
extern  int  necRunStatusO; 

r . . . - . / 

void  createVisualWindow  0 

{ 

Widget  actionA,  pane,  form,  fra  me  1,  rowColumn, 
rowColumnl,  label,  button; 

Arg  args  [10]; 
int  n  =  0; 

Xm String  string; 

Position  x,  y; 

extern  void  onlyDigitsCB  0; 
static  ActionArealtem  actionltemsQ  =  { 
fOk",  vrsualOkButtonCB,  NULL}, 
f CanceT,  cancelButtonCB,  NULL}, 

>; 

extern  void  newEscapeActionQ; 
extern  Widget  createScrolledTextO; 
extern  int  sourceOataQ; 
extern  float  fregOataQ; 

extern  int  numFreqOata,  VoltageSourcesCount  FrequencyCount; 

extern  int  *FR_IFRQ.  *FR_NFRQ; 

extern  float  *FR_FMH2,  *FR_DELFRQ; 

int  i,  j  =  0,  step; 

extern  int  *EX_Wire; 

XtTranslateCoords  (topLevel,  (Position)  0,  (Position)  0,  &x,  &y); 
XtSetArg  (args  [n],  XmNx,  x);  n++; 

XtSetArg  (args  [nj,  XmNy,  y  +  100);  n-*-*-; 
visualShell  - 

XtCreatePopupShell  (“Visual ization",  topLevelShellWidgetClass, 
topLevel,  args,  n); 
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newEscapeAction(visualSbell); 

XtSetArg  (args[nj,  XmNsashWidth,  1);  n++; 

XtSetArg  (args[nj,  XmNsash Height,  1);  n++; 

pane  =  XmCreatePanedWindow  (visualShell,  "pane”,  args,  n); 

XtManageChiid  (pane); 

r  Create  control  area  7 

form  =  XmCreateForm  (pane,  "form",  NULL,  0); 

string  =  XmStringCreateSimple  ("Select  data  type  to  be  displayed:"); 

XtSetArg  (args[n],  XmNlabelString,  string);  n++; 

XtSetArg  (args[nj,  XmNleftAttachmerrt,  XmATTACH_FORM);  n++; 

XtSetArg  (argsfnj,  XmNleftOffset,  15);  n++; 

XtSetArg  (argsfnj,  XmNtopAttachment,  XmATTACH_FORM);  n++; 

XtSetArg  (argsfn],  XmNtopOffset,  15);  n++; 
label  =  XmCreate Label  (form,  "labeT,  args,  n); 

XtManageChiid  (label); 

XmStringFree  (string); 

r  Create  frame  to  hold  data  type  options  7 

n  =  0; 

XtSetArg  (args  [n],  XmNtopAttachment  XmATTACH_WIDGE7);  n++; 

XtSetArg  (args  [nj,  XmNtopWidget  label);  n++; 

XtSetArg  (args  [nj.  XmNIeftAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  (nj,  XmNleftOffset  10);  n++; 

XtSetArg  (args  [nj,  XmNrightAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  (nj,  XmNrightOffset  10);  n++; 
frame  1  =  XmCreateFrame  (form,  "frame",  args,  n); 

1*  Create  trie  row  column  box  7 
n  =  0; 

XtSetArg  (args  [n],  XmNpacking,  XmPACK_COLUMN);  n++; 

XtSetArg  (args  [nj,  XmNnumColumns,  12);  n++; 

XtSetArg  (args  [nj,  XmNradioBehaviof,  True);  n++; 

XtSetArg  (args  [nj,  XmNonentation,  XmHORIZONTAL);  n++; 

XtSetArg  (args  [nj,  XmNisHomogeneous,  FALSE);  n-M-; 
rowColumn  =  XmCreateRowColumn  (framel ,  “rowColumn",  args,  n); 

r  Create  trie  Geometry  data  type  buttons  7 

XtVaCreateManagedWidget  ("GEOMETRY",  xmLabelWidgetClass,  rowColumn,  NULL); 
XtVaCreateManagedWidget  {"  ",  xmLabelWidgetClass,  rowColumn,  NULL); 

XtSetArg  (args  [0],  XmNset.  True); 

button  =  XmCreateToggleButton  (rowColumn,  "Segmentation",  args,  1); 

XtManageChiid  (button); 

XtAddCaliback  (button.  XmNvalueChangedCallback,  visualButtonCB, 

(XtPomter)  1); 

button  =  XmCreateToggleButton  (rowColumn,  "Wire  Radius",  args,  0); 

XtManageChiid  (button); 

XtAddCaliback  (button.  XmNvalueChangedCallback,  visualButtonCB. 

(XtPointer)  2); 

button  =  XmCreateToggleButton  (rowColumn.  "Segment  to  Radius  Ratio", 
args.  0); 

XtManageChiid  (button); 

XtAddCaliback  (button.  XmNvalueChangedCallback,  visualButtonCB, 

(XtPointer)  3); 

button  =  XmCreateToggleButton  (rowColumn,  *Wire  Connections",  args,  0); 
XtManageChiid  (button); 

XtAddCaliback  (button,  XmNvalueChangedCallback,  visualButtonCB, 

(XtPointer)  4); 

XtVaCreateManagedWidget  ("  ",  xmLabelWidgetClass,  rowColumn,  NULL); 
XtVaCreateManagedWidget  {"  ",  xmLabelWidgetClass,  rowColumn,  NULL); 

r  Create  Charge  &  Currents  data  type  buttons  7 

XtVaCreateManagedWidget  ("CURRENTS  &  CHARGES",  xmLabelWidgetClass, 
rowColumn,  NULL); 

XtVaCreateManagedWidget  f  ",  xmLabelWidgetClass,  rowColumn,  NULL); 
button  =  XmCreateToggleButton  (rowColumn,  “Cun-ent  Magnitude",  args,  0); 
XtManageChiid  (button); 

XtAddCaliback  (button,  XmNvalueChangedCallback,  visualButtonCB, 

(XtPointer)  8); 

button  =  XmCreateToggleButton  (rowColumn,  "Current  Phase",  args,  0); 

XtManageChiid  (button); 

XtAddCaliback  (button,  XmNvalueChangedCallback,  visualButtonCB, 

(XtPointer)  10); 

button  =  XmCreateToggleButton  (rowColumn,  "Charge",  args,  0); 

XtManageChiid  (button); 

XtAddCaliback  (button,  XmNvalueChangedCallback,  visualButtonCB, 

(XtPointer)  11); 

XtVaCreateManagedWidget  f  ",  xmLabelWidgetClass,  rowColumn,  NULL); 
XtVaCreateManagedWidget  ("  ",  xmLabelWidgetClass.  rowColumn.  NULL); 
XtVaCreateManagedWidget  f  ",  xmLabelWidgetClass,  rowColumn,  NULL); 

r  Create  Near  &  Far  Reid  data  type  buttons  7 

XtVaCreateManagedWidget  ("FIELDS",  xmLabelWidgetClass,  rowColumn,  NULL); 
XtVaCreateManagedWidget  (“  ",  xmLabelWidgetClass,  rowColumn,  NULL); 
button  =  XmCreateToggleButton  (rowColumn,  ”Z -component  of  E-normal", 
args,  0); 

XtManageChiid  (button); 

XtAddCaliback  (button,  XmNvalueChangedCallback,  visualButtonCB, 

(XtPointer)  13); 

button  =  XmCreateToggleButton  (rowColumn,  Total  E-normal",  args,  0); 
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XtManageChild  (button); 

XtAddCallback  (button,  XmNvalueC  hangedCallback,  visualButtonCB, 

(XtPointer)  14); 

button  =  XmCreateToggieButton  (rowColumn,  "X-component  of  H-normaf", 
args,  0); 

XtManageChild  (button); 

XtAddCallback  (button,  XmNvalueC  hanged  Callback,  visualButtonCB, 

(XtPointer)  15); 

button  =  XmCreateToggieButton  (rowColumn,  ^-component  of  H-normal*\ 
args,  0); 

XtManageChild  (button); 

XtAddCallback  (button,  XmNvalueC  hanged  Callback,  visualButtonCB, 

(XtPointer)  16); 

button  =  XmCreateToggieButton  (rowColumn,  "E-theta",  args,  0); 

XtManageChiW  (button); 

XtAddCallback  (button,  XmNvalueC  hanged  Callback,  visualButtonCB, 

(XtPointer)  17); 

button  =  XmCreateToggieButton  (rowColumn,  "E-phi",  args,  0); 

XtManageChild  (button); 

XtAddCallback  (button,  XmNvalueChangedCallback,  visualButtonCB, 

(XtPointer)  19); 

XtManageChild  (rowColumn); 

XtManageChild  (framel); 

r  Create  the  row  column  box  */ 
n  =  0; 

XtSetArg  (args[n],  XmNleftAttachment,  XmATTACH_FORM);  n++; 

XtSetArg  (argsjnj,  XmNleftOffset,  10);  n++; 

XtSetArg  (args[nj,  XmNtopAttachment,  XmATTACH_WIDGET);  n++; 

XtSetArg  (args[nj,  XmNtopWidget,  framel);  n++; 

XtSetArg  (args[nj,  XmNtopOffset,  10);  n++; 

XtSetArg  (argsfnj,  XmNorientation,  XmHORIZONTAL);  n++; 
rowColumnl  =  XmCreateRowColumn  (form,  "rowColumn*4,  args,  n); 

XtManageChild  (rowColumnl); 

n  =  0; 

string  =  XmStringCreateSimple  ("Select  Log  or  Linear  display!**); 

XtSetArg  (argsfn),  XmNlabelString,  string);  n++; 
label  =  XmCreateLabel  (rowColumnl ,  "laber,  args,  n); 

XtManageChild  (label); 

XmStringFree  (string); 

r  Create  the  row  column  box  V 
n  =  0; 

XtSetArg  (args  [n],  XmNpacking,  XmPACK_COLUMN);  n++; 

XtSetArg  (args  [nj,  XmNorientation,  XmHORIZONTAL);  n>+; 

XtSetArg  (args  [nj,  XmNradioBehavior,  True);  n++; 

rowColumn  =  XmCreateRowColumn  (rowColumnl,  "rowColumn",  args,  n); 

visualLog  =  XmCreateToggieButton  (rowColumn,  "Log",  args,  0); 

XtManageChild  (visualLog); 

button  =  XtVaCreateManagedWidget  ("Linear",  xmToggleButtonWidgetClass, 
rowColumn,  XmNset  True,  NULL); 

XtManageChild  (rowColumn); 

r 

XtManageChild  (frame); 

V 

r  Create  RowColumn  box  for  Source  &  Frequency  specification  7 
n  =  0; 

XtSetArg  (args  [n],  XmNleftAttachment,  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNleftOffset  10);  rt++; 

XtSetArg  (args  (nj,  XmNtopAttachment  XmATTACH_WlDGET);  n++; 

XtSetArg  (args  (nj,  XmNtopWidget  rowColumnl);  n++; 

XtSetArg  (args  [nj,  XmNtopOffset  10);  n++; 

XtSetArg  (args  [n],  XmNorientation,  XmVERTlCAL);  n++; 

XtSetArg  (args  [nj,  XmNnumColumns,  4);  n++; 

XtSetArg  (args  (nj,  XmNpacking,  XmPACK_COLUMN);  n++; 
rowColumn  =  XmCreateRowColumn  (form,  "rowColumn",  args,  n); 

XtManageChild  (rowColumn); 

r  Create  Source  label  7 
n  =  0; 

string  -  XmStringCreateLtoR  f  Source:",  XmSTRING_DEFAULT__CHARSET); 
XtSetArg  (args  [n],  XmNlabelString,  string);  n++; 

XtSetArg  (args  (nj,  XmNmappedWhenManaged,  False);  n++; 
sourceLabel  -  XmCreateLabel  (rowColumn,  “sourceLabel",  args,  n); 

XtManageChild  (sourceLabel); 

XmStringFree  (string); 

r  Create  Antenna  Power  label  7 
n  =  0; 

string  =  XmStringCreateLtoR  ("Antenna  Power",  XmSTRlNG_DEFAULT_CHARSET); 
XtSetArg  (args  [n],  XmNlabelString,  string);  n++; 

XtSetArg  (args  [nj,  XmNmappedWhenManaged,  False);  n++; 
pwrLabel  =  XmCreateLabel  (rowColumn,  “pwitabel",  args,  n); 

XtManageChild  (pwrLabel); 

XmStringFree  (string); 

r  Create  Source  text  7 
n  =  0; 

XtSetArg  (args  [n],  XmNeditMode,  XmSINGLEJJNE_EDIT);  n++; 
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XtSetArg  (args  [n],  XmNcolumns,  11);  n++; 

XtSetArg  (args  [nj,  XmNmappedWhenManaged,  False);  n++; 
for  (i  =  0;  i  <  VoftageSourcesCount;  i++) 
source  Data  [i]  =  EX_Wire[i]; 

sourceText  =  createScrolledText(rowColurnn,  "sourceTexT,  args,  n, 
sourceData,  VoltageSourcesCount,  1); 

XtAddCallback  (sourceText  XmNmodifyVerifyCallback,  onlyOigitsCS,  NULL); 
XtManageChild  (sourceText); 

r  Create  Antenna  Power  text  */ 
n  =  0; 

XtSetArg  (args  fn],  XmNeditMode,  XmSINGLE_LINE_EDfT);  n++; 

XtSetArg  (args  [nj,  XmNcolumns,  11);  n++; 

XtSetArg  (args  [nj,  XmNmappedWhenManaged,  False);  n++; 
pwrText  =  XmCreateText  (rowColumn,  "pwrText",  args,  n); 

XtManageChild  (pwrText); 

XmTextSetString(pwrText  "1000"); 

/*  Create  Frequency  label  V 
n  =  0; 

string  =  XmStringCreateLtoR  ("Frequency:",  XjtiSTRING_DEFAULT_CHARSET); 
XtSetArg  (args  [nj,  XmNlabelString,  string);  n++; 

XtSetArg  (args  [nj,  XmNmappedWhenManaged,  False);  n++; 
freq Label  =  XmCreate Label  (rowColumn,  "freqLabel",  args,  n); 

XtManageChild  (freqLabef); 

XmStringFree  (string); 

/*  Dummy  filler  */ 

XtVaCreateManagedWidget  f  ",  xmLabelWidgetCIass,  rowColumn,  NULL); 

r  Create  Frequency  text  */ 
n  =  0; 

XtSetArg  (args  [n},  XmNeditMode,  XmSlNGLE_LINE_EDlT);  n++; 

XtSetArg  (args  [nj,  XmNcolumns,  11);  n++; 

XtSetArg  (args  [nj,  XmNmappedWhenManaged,  False);  n++; 
for  (i  =  0;  i  <  FrequencyCount;  i++) 
if  (FRJFRQR  =  0)  { 
step  =  0; 

while  (step  <  FR_NFRQ[i])  { 
freqData(j++J  =  FR_FMH2[i]  +  FR_DELFRQ[i]  *  step; 
step++; 

> 

> 

else  { 
step  =  0; 

white  (step  <  FR  NFRQ[tJ)  { 

freqDataO++)  =  FR_FMHZ[i]  *  pow((double)FR_DELFRQ[i],(double)step); 
step++; 

> 

} 

numFreqData  =  j; 

freqText  =  createScrolledText(rowColumn,  "freqText",  args,  n, 
freqData,  j.  0); 

XtManageChild  (freqText); 

r  Create  the  action  area  7 

acbonA  =  createActionArea  (pane,  actonttems,  XtNumber  (actionltems)); 

XtManageChild  (form); 

>  r  end  createVisualWindow  V 

static  void  visualButtonCB  (w,  type,  state) 

Widget  w, 
int  type; 

XmToggleButtonCailbackStruct  'state; 

{ 

if  (type  >  4)  { 

XtMapWidget  (sourceLabel); 

XtMapWidget  (sourceText); 

XtMapWidget  (freqLabel); 

XtMapWidget  (freqText); 
if  ((type  >=  8)  &&  (type  <=  16))  { 

XtMapWidget  (pwrLabef); 

XtMapWidget  (pwrText); 

>else{ 

XtUnmapWidget  (pwrLabef); 

XtUnmap Widget  (pwrText); 

} 

}else{ 

XtUnmapWidget  (sourceLabel); 

XtUnmapWidget  (sourceText); 

XtUnmapWidget  (freqLabel); 

XtUnmapWidget  (freqText); 

XtUnmapWidget  (pwrtabel); 

XtUnmapWidget  (pwrText); 


if  (state->set) 
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visuaiType  =  type; 

else 

visuaiType  =  0; 


w  =  w;  r  Make  compiler  happy  */ 
)  r  end  visualButtonCB  V 


static  void  visualOkButtonCB  (void) 

< 

Boolean  logRag; 
inttype,  source; 
float  freq; 


r  Get  selected  visualization  output  7 
type  =  visuaiType; 

logFlag  =  XmToggleButtonGetState  (visualLog); 
if  (type  >  7)  { 

if  (InecRunStatusQ)  return; 


} 


if  ((visuaiType  =  8)  ||  (visuarType  =  11)  ||  (visuaiType  >  16))  { 
if  (logFlag) 
type++; 

>  else  if  (visuaiType  <  4)  { 
if  {logFlag) 
type+=  4; 

} 


/*  Get  current  values  for  source  &  frequency  if  needed  7 
if  (type  >  7)  { 

source  =  atoi  (XmTextGetString  (sourceText)); 
freq  =  atof  (XmTextGetString  (freqText)); 

}else{ 
source  =  0; 
freq  =  0; 

> 


XtPopdown  (visualShell); 
create3dlmage  (type,  source,  freq); 


)  r  visualOkButtonCB  7 


static  void  create3dlmage  (type,  source,  freq) 
inttype,  source; 
float  freq; 

{ 

extern  Boolean  alreadyFiltered  0; 
extern  void  createMessageDialog  0; 
extern  void  geometryFilter  0; 
extern  void  necOisplay  0; 

extern  char  •necInputFilename,  *necOutputFilename; 
extern  Widget  topLevel; 

if  (type  <  17) 

r  Run  geometryFilter  to  calculate  data  needed  for  geomtry  7 
geometryFilter  0; 

if(type>7H 

/*  Make  sure  NEC  Output  file  has  been  specified  7 
if  (necOutputfilename  =  NULL)  { 
createMessageDialog  (topLevel,  "Visualization  Error", 

"NEC  Output  file  must  be  specified", 
XmDIALOG_ERROR); 

return; 

> 

/*  Make  sure  .rcr  file  exists  7 
if  ((type  »=  8)  &&  (type  <=  10)) 
runRIter  (pwrText  NULL,  CURRENTS); 
else  if  ((type  ==  11)  |J  (type  =  12)) 
runRIter  (pwrTexL  NULL,  CHARGE); 
else  if  ((type  =  13)  |{  (type  =  14)) 
runRIter  (pwrText  NULL,  NEAR  ELECTRIC); 
else  if  ((type  =  15)  H  (type  =  16)) 
runRIter  (pwrText  NULL,  NEAR_MAGNET1C); 
else  if  (lalreadyFiltered  (fileExts[RADIAT10ND)  { 
needsftt  (RADIATION,  0); 

> 


necOisplay  (nednputFilename,  type,  source,  freq); 
)  r  end  create3dlmage  7 
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A.16  geofilt.c: 


geofilt.c: 

r . GEOFILT.C . ......................... 

•  Program  provides  filtered  output  files  from  the  input  of  NEC-MoM 

*  Original  program  was  written  in  Fortran  by  Linda  Russell. 

•  This  program  was  ported  to  C  by  Darlene  Wentworth. 

*  6/12/95  -  wire  connection  routine  speeded  up  by  Linda  Russell 
. / 


frindude  <stdio.h> 
include  <stdlib.h> 
tfndude  <  string. h> 

#indude  <math.h> 

#include  <X11 /Intrinsic.  h> 
include  “filters 
include  “cFileMenu.h" 
include  "control. h“ 

#define  min(a,b)  (a>b  ?  b  :  a) 

#define  max(a,b)  (a<b  ?  b  :  a) 

extern  int  Envindex; 

extern  int  Dimlndex; 

extern  float  DimensionsScaie  Q; 

int  NumWires,  NumSegs; 

float  Xmin,  Xmax,  Ymin,  Ymax,  Zmin,  Zmax,  XshHt,  Yshift,  Zshift,  Scale, 
SegMin,  SegMax,  RadMin,  RadMax,  SrMin,  SrMax; 
float  *Xnode1 ,  *Ynode1,  *Znode1,  *Xnode2,  *Ynode2,  *Znode2; 
float  *Segs,  "Rads,  *SrRatio; 

r  Indexes  into  global  arrays  7 

int  *Jseg,  \Jwire,  *lseg,  "Irad,  *lsr,  "Icon,  "Iseglg,  *lradtg,  *lsrig; 

void  geometryFilter  0 

{ 

float  gscale; 

float  cdr,  bRadius,  eRadius,  wLength,  sLength,  sRadius, 
xDif,  yDif,  zDif,  difMax; 
int  i,  j,  nSegs,  num Nodes,  inode,  jnode; 
int  inodel,  inode2,  jnodel,  jnode2; 
int  totaljwires; 
float  *gc_rad1 ; 
float  *gc_rad2; 

Boolean  "connect; 

r  Initial  values  V 

gscale  =  DimensionsScale[Dimlndex]; 
cdr  =  acos  (0.0)  /  90.0; 

NumSegs  =  0; 
numNodes  =  0; 

NumWires  =  0; 

r  Calculate  total  number  of  segments  and  allocate  arrays  7 
nSegs  =  0; 

for  (i  =  0;  i  <  SWireCount;  i++) 
nSegs  +=  GW_NS[p; 
for  (i  =  0;  i  <  TaperWireCount;  i++) 
nSegs  +=  GC_NS[i]; 

total_wires  =  SWireCount  +  TaperWireCount; 

Jseg  =  (int  *)  XtMalloc  (sizeof  (int)  *  nSegs); 

Jwire  =  (int  *)  XtMalloc  (sizeof  (int)  *  nSegs); 

Iseg  =  (int  *)  XtMalloc  (sizeof  (int)  *  nSegs); 

I  rad  =  (int  *)  XtMalloc  (sizeof  (int)  *  nSegs); 

Isr  =  (int  *)  XtMalloc  (sizeof  (int)  *  nSegs); 

Icon  =  (int  *)  XtMalloc  (sizeof  (int)  *  nSegs); 

Iseglg  =  (int  *)  XtMalloc  (sizeof  (int)  *  nSegs); 

Iradlg  =  (int  *)  XtMalloc  (sizeof  (int)  *  nSegs); 

Isrig  =  (int  *)  XtMalloc  (sizeof  (int)  *  nSegs); 

Segs  =  (float ")  XtMalloc  (sizeof  (float)  *  nSegs); 

Rads  =  (float  *)  XtMalloc  (sizeof  (float)  *  nSegs); 

SrRabo  =  (float  •)  XtMalloc  (sizeof  (float)  *  nSegs); 

Xnodel  =  (float  *)  XtMalloc  (sizeof  (float)  *  nSegs); 

Ynodel  =  (float  *)  XtMalloc  (sizeof  (float)  *  nSegs); 

Znodel  =  (float  *)  XtMalloc  (sizeof  (float)  *  nSegs); 

Xnode2  =  (float  *)  XtMalloc  (sizeof  (float)  *  nSegs); 

Ynode2  =  (float ")  XtMalloc  (sizeof  (float)  *  nSegs); 

Znode2  =  (float ")  XtMalloc  (sizeof  (float)  *  nSegs); 

connect  =  (Boolean  *)  XtMalloc  (sizeof  (Boolean)  *  (total_wires  *  2  +  1)); 

if  (TaperWireCount  >  0)  { 

gcjadl  =  (float  *)  XtMalloc  (sizeof  (float)  *  TaperWireCount); 
gc  rad2  =  (float ")  XtMalloc  (sizeof  (float)  ■  TaperWireCount); 

} 


r  Process  straight  wires  to  find  minimum  x,  y,  and  z  7 
for  (i  =  0;  i  <  SWireCount;  i++)  { 
float  xl,  yl,  zl,  x2,  y2,  z2; 
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intfaq 


NumWires++; 

connect((NumWires-1)*2]  =  False; 
connectf(NumWires-1)*2+1]  =  False; 
xl  =  XJGW  END1[i]  -  1]*g$cale; 
yl  =  Y{GW~END1  [i]  -  IJ-gscale; 
zl  =  Z[GW_END1{i]  -  1]*gscale; 
x2  =  X[GW_END2[i]  -  1]*gscale; 
y2  =  Y{GW  END2[i]  -  Ij'gscale; 
z2  =  ZtGW  END2[i]  -  1]*g  scale; 
a  =  GW_NS[i]; 
if  (I  =  0)  < 

Xmin  =  Xmax  =  xl; 

Ymin  *  Ymax  =  yl; 

Zmin  =  Zmax  =  z1; 

SegMin  =  10000.0; 

RadMin  =  10000.0; 

SrMin  =  10000.0; 

SegMax  =  0.0; 

Rad  Max  =  0.0; 

SrMax  =  0.0; 

> 

Xmin  =  min  (Xmin,  xl); 

Ymin  =  min  (Ymin,  yl); 

Zmin  =  min  (Zmin,  zl); 

Xmax  =  max  (Xmax,  xl); 

Ymax  =  max  (Ymax,  yl); 

Zmax  =  max  (Zmax,  zl); 

Xmin  =  min  (Xmin,  x2); 

Ymin  =  min  (Ymin,  y2); 

Zmin  =  min  (Zmin,  z2); 

Xmax  =  max  (Xmax,  x2); 

Ymax  =  max  (Ymax,  y2); 

Zmax  =  max  (Zmax,  z2); 

r  Straight  Wire  info  */ 
if  (GW_RA0[i]  >=  0.000001)  { 
for  0 j  =  0;  j  <  GW_NS[i];  j++)  { 

Jwire(NumSegs)  =  NumWires; 

Jseg[NumSegs)  =  j  + 1; 

Xnodel  [NumSegs]  =  xl  +  j  *  (x2  -  x1)/ix; 

Ynodel  [NumSegsj  =  yl  +  j  *  (y2  •  ylVoq 
Znodel  [NumSegsj  =  zl  +  j  *  (z2  -  zlj/ix; 

Xnode2[NumSegs]  =  x1  +  G  +  1)  *  (x2  -  x1)/bc 
Ynode2[NumSegs]  =  yl  +  Q  ♦  1)  *  (y2  -  yiybq 
Znode2(NumSegs]  =  zl  +  0  +  1)  *  (z2  -  z1)/ix; 
SegsJNumSegs]  =  sqrt  (pow  ((xl  -  x2),  2)  ♦  pow  ((yl  -y2),  2)  + 
pow  ((zl  -  z2),  2))  /  ix; 

RadsflsIumSegs]  =  GW_RAD[i]*gscale; 

SrRatiopMumSegsJ  -  SegsfNumSegs]  /  Rads[NumSegs]; 
SegMin  =  min  (SegMin,  SegsfNumSegs]); 

RadMin  =  min  (RadMin,  RadsfNumSegs]); 

SrMin  =  min  (SrMin,  SrRatio[NumSegs]); 

SegMax  =  max  (SegMax,  Segs[NumSegsJ); 

Rad  Max  =  max  (RadMax,  Rads[NumSegsJ); 

SrMax  =  max  (SrMax,  SfRatio[NumSegsD; 

NumSegs++; 
num  Nodes  +=  2; 

> 

} 

> 

r  Process  tapered  wires  to  find  minimum  x,  y,  and  z  */ 
for  (i  =  0;  i  <  TaperWireCount;  i++)  { 
float  xl,  yl,  zl,  x2,  y2,  z2; 
int  ix; 

NumWires++; 

connect((NumWires-1)*2]  =  False; 
connectf(NumWires-1)*2+1)  =  False; 
xl  =  X[GC_END1[i]  -  1]*gscale; 
yl  =  Y[GC_END1[i]  -  1]*gscale; 
zl  =  Z[GC_END1[i)  -  1)*gscale; 
x2  =  X[GC_END2(i]  -  IJ’gscale; 
y2  =  Y[GC_END2[i]  -  1]*gscale; 
z2  =  Z[GCJEND2[i]  -  1]*gscale; 
oc  =  GC_NS[i]; 

bRadius  =  GC_RAD1  [i]*gscale; 
eRadius  =  GC  RAD2[i]*gscale; 

if  0  ==  0)  { 

Xmin  =  Xmax  =  xl ; 

Ymin  =  Ymax  =  yl; 

Zmin  =  Zmax  =  zl; 

SegMin  =  10000.0; 

RadMin  =  10000.0; 

SrMin  =  10000.0; 

SegMax  =  0.0; 

RadMax  =  0.0; 

SrMax  =  0.0; 

} 

Xmin  =  min  (Xmin,  xl); 

Ymin  =  min  (Ymin,  yl); 
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Zmin  =  min  (Zmin,  zl); 

Xmax  =  max  (Xmax,  xl); 

Ymax  =  max  (Ymax,  yi); 

Zmax  =  max  (Zmax,  zl); 

Xmin  =  min  (Xmin,  x2); 

Ymin  =  min  (Ymin,  y2); 

Zmin  =  min  (Zmin,  z2); 

Xmax  =  max  {Xmax,  x2); 

Ymax  =  max  (Ymax,  y2); 

Zmax  =  max  (Zmax,  z2); 

r  For  each  segment  find  nodes,  lengths,  etc.  */ 
for  (j  =  0;  j  <  GC_NSp];  j++)  < 

Jwire[NumSegs]  =  NumWires; 

JsegJNumSegs]  =  j  ♦  1 ; 

Q  >  0)  { 

xl  =  Xnode2[NumSegs  -  1J; 
yl  =  Ynode2(NumSegs  *  1]; 
zl  =  Znode2[NumSegs  - 1  j; 

> 

wLength  =  sqrt  (pow  ((xl  -  x2),  2)  +  pow  ((yl  -y2),  2)  + 
pow  ((zl  -  z2),  2)); 

if  0  “  0)  { 

if  (abs  (1  -  GC_RDEL[iD  >  0.0001) 

sLength  =  wtength  *  (1  -  GC^RDELp])  /  (1  -  pow  (GC_RDELp],  ix)); 
else 

sLength  =  wLength  /  be, 

>  else  if  (j  ==  ix) 
sLength  =  wLength; 
else 

sLength  =  GC_RDELp]  *  sLength; 
sRadius  =  bRadius  +  j  *  (eRadius  -  bRadius)/(ix  - 1); 
if  (j==0)  gc  rad 1  p]  =  sRadius; 
if  (j==GC_NS[i]-1)  gc_rad2R  =  sRadius; 

Xnodel  [NumSegs]  =  xl; 

Ynodel  [NumSegsj  =  yl; 

Znodel  (NumSegsj  =  zl; 

Xnode2[NumSegs]  =  xl  +  (sLength  /  wLength)  *  (x2  -  xl); 
Ynode2[NumSegsJ  =  yl  +  (sLength  /  wLength)  *  (y2  -  yl); 

Znode2 [N  u  m Segs]  =  zl  +  (sLength  /  wLength)  *  (z2  -  zl); 
SegsfNumSegs]  =  sLength; 

Rads[NumSegs]  =  sRadius; 

SrRatioJNumSegs]  =  sLength  /  sRadius; 

SegMin  =  min  (SegMin,  Segs[NumSegs]); 

RadMin  =  min  (RadMin,  Rads[NumSegsj); 

SrMin  =  min  (SrMin,  SrRatio[NumSegs]); 

SegMax  =  max  (SegMax,  SegsfNumSegs]); 

RadMax  =  max  (RadMax,  Rads(NumSegs]); 

SrMax  =  max  (SrMax,  SrRatio[NumSegs]); 

NumSegs++; 
numNodes  +=  2; 

> 


r  See  which  wires  are  connected  V 
for  (i  =  0;  i  <  NumWires;  i++)  { 
inode  =  i  *  2; 
if  (i  <  SWireCount)  { 
r  Straight  Wire  */ 
inodel  =  GW  END1[i]; 
inode2  =  GW  EN02[i]; 
if  (Envlndex  !=  FREE_SPACE)  { 
if  (fabs(Z[inode1  -  ij)  <=  GW_RADpD  connectpnode]  =  True; 
if  (fabs(Z[inode2  *  1])  <=  GW  RADR)  connectftnode  +  1]  =  True; 

} 

r 

if  (Zpnodel  - 1]  <=  GW_RAD[i]}  connectpnode]  =  True; 
if  (Zpnode2  - 1)  <=  GW_RAD[i]}  connectpnode  +  1]  =  True; 

*/ 

>  else  { 

r  Tapered  Wire  */ 
inodel  =  GC_END1p  -  SWireCount]; 
inode2  =  GC_END2p  -  SWireCount]; 
if  (Envlndex  1=  FREE_SPACE)  { 
if  (fabs(Zpnode1  - 1])  <=  gejadip])  connectftnode]  =  True; 
rf  (fabs(Z[inode2  - 1])  <=  gcjad2[i])  connectpnode+1]  =  True; 

} 

r 

if  (Zpnodel  - 1]  <=  gcjadlpD  connectpnode]  =  True; 
if  (Z[inode2  - 1]  <=  gc  tad2[iD  connectpnode+1]  =  True; 

*/ 

} 

for  Q  =  i+1;  j  <  NumWires;  j++)  { 
jnode  =  j*2; 
if  Q  <  SWireCount)  { 

/•Straight  Wire*/ 
jnodel  =  GW_END1Q]; 
jnode2  =  GW_END2[j]; 

}else{ 

r  Tapered  Wire  */ 
jnodel  =  GC_END1Q  -  SWireCount]; 
jnode2  =  GC_END2{j  -  SWireCount]; 

> 
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if  (inodel  =  jnodel)  { 
connectfinode]  =  True; 
connectfinodej  =  True; 

} 

if  (inodel  =  jnode2)  < 
connectfinodej  =  True; 
connecttjnode  +  1]  =  True; 

> 

if  (inode2  =  jnodel)  { 
connectfinode  +  1)  =  True; 
connect(jnode]  =  True; 

} 

if  (inode2  —  jnode2)  { 
connect^  node  ♦  1]  =  True; 
connecttjnode  +  1]  =  True; 

> 

> 

> 

r  Calculate  shifts  */ 

Xshift  =  (Xmax  ♦  Xmin)  /  ZO; 

Yshift  =  (Ymax  +  Ymin)  /  ZO; 

Zshift  =  Zmin; 

r  Calculate  Scale  factor  7 
xDif  =  Xmax  -  Xmin; 
yOif  =  Ymax  -  Ymin; 
zDif  =  Zmax  -  Zmin; 
difMax  =  xDif; 

difMax  =  max  (yOrf,  difMax); 
difMax  =  max  (zDif,  difMax); 

Scale  =  4.0 /difMax; 

for  (i  =  0;  i  <  NumSegs;  i++)  { 
inode  =  2  *  (Jwirepj  - 1); 
if  (SegMax  =  SegMin)  { 
lseg[i]  =  0; 
lseglg[i]  -  0; 

}  else  { 

Isegp]  =  (Segs(i]  -  SegMin)  /  (SegMax  -  SegMin)  *  7; 
iseglgp]  =  OoglO  (SegMin/Segsffl)  /  log  10  (SegMin/SegMax))  *  7; 
if  (Segsfr]  =-  SegMax)  { 
lseg[i]  =  6; 

Iseglgp]  =  6; 

} 

> 

if  (RadMax  =  RadMin)  { 
lrad[i]  =  0; 
iradlgfi]  =  0; 

>else{ 

Iradp]  =  (Rads(i]  -  RadMin)  /  (RadMax  -  RadMin)  *  7; 

Iradlgp]  =  (loglO  (RadMin/RadspD  /  loglO  (RadMin/RadMax))  *  7; 
if  (Rads[i]  ==  RadMax)  { 

Iradfi]  =  6; 
lradlg(i]  =  6; 

} 

} 

if  (SrMax  ==  SrMin)  { 
lsr(il  =  0; 

Isrlgp]  =  0; 

>else{ 

torfi]  =  (SrRatioR  -  SrMin)  /  (SrMax  -  SrMin)  *  7; 

Isngpl  =  OoglO  (SrMin/SrRatio{i3)  /  loglO  (SrMin/SrMax))  *  7; 
if  (SrRatiop]  =  SrMax)  { 
tsr[i]  =  6; 

Isrigfi]  =  6; 

) 

} 

if  (connect(inode]  &&  connect(irvode+1])  lcon[i]  =  0; 
if  (connectfinodej  &&  lconnectfinode+1])  Iconji]  =  2; 
if  (Iconnectfmode]  &&  connect(inode+1D  lcon[i]  -  2; 
if  (Iconnectfinodej  &&  lconnect(inode+1])  Iconp]  =  4; 

} 

XtFree  (connect); 
connect  =  NULL; 
if  (TaperWireCount  >  0)  { 

XtFree((char  *)  gc_rad1); 
gc_rad1  =  NULL; 

XtFree((char  *)  gc  rad2); 
gc  rad2  =  NULL; 

> 

T  Output  data  for  testing... 
print/  nt%d\t%d\n“  NumWires,  NumSegs); 
print/  Xmin,  Xmax); 

print#  Ymin,  Ymax); 

printf  f%f\t%ftn",  Zmin,  Zmax); 
print/  Xshift  Yshift); 

print/  ("%ftt%ftn".  Zshift,  Scale); 
print/  SegMin,  SegMax); 

print/  RadMin,  RadMax); 

print/  f%ftt%ftn\n“,  SrMin,  SrMax); 
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for  0  =  0;  i  <  NumSegs;  i++)  { 

printf  r%5d%5d%3d%3d%3d%3dViH,  Jsegffl,  Jwirefi],  lseg[i],  Jrad[i], 
Isrtf},  lcon[TJ); 

printf  (M%3d%3d%3d\n**1  Iseglgp],  Iradlgp],  Isrtgft]); 
printf  f%10.4f%10.4f%10.4ftn-,  SegsR,  Radsffl,  SrRatio(i]); 
printf  C%  1 0. 4f%  1 0.4f%  1 0. 4f%  1 0. 4f%  1 0. 4f%  1 0.4ftn", 

Xnode1[i],  Ynodelfi],  Znod«1[i],  Xnode2[i],  Ynode2[i],  Znode2[i]); 

> 


}  r  end  geometryFilter  */ 
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A.17  needsflt.c 


needsflt.c: 

r . NECRLT.C  — - — — - ~ — «- . 

*  Program  provides  filtered  output  files  from  the  output  of  NEC-MoM 

*  Original  program  was  a  series  of  program  developed  by  Lance  Koyama, 

*  NRaO  Code  82. 

*  This  program  was  ported  to  C  by  Darlene  Wentworth. 

. . I 


include  <stdio.h> 
include  <stdlib.h> 

#indude  <string.h> 

#indude  <math.h> 
include  <Xm/DialogS.h> 
ttncJude  "fUter.h* 

extern  FILE  *efopen  0; 

static  void  couple  0; 
static  void  current  Q; 
static  void  charge  0; 
static  void  electric  0; 
static  void  extract  0; 
static  void  impedance  0; 
static  void  magnetic  0; 
static  void  nearf  ield  0: 
static  void  pattern  0; 

static  RLE  ‘inFilePtr; 

/»«“ . . . 

*  Checks  if  NEC  execution  completed  successfully.  If  not,  displays 

*  error  message.  Returns  1 ,  if  successful.  Otherwise,  returns  0; 

- . . 

int  necRunStatus  (void) 

< 

char  msg(132],  command[132]; 
intvaf; 

extern  char  'necOutputFifename; 
extern  Widget  topLevei; 

r  Make  sure  that  NEC  execution  was  successful  V 
sprintf  (command,  "tail  %s  }  grep  VRUN  TIMET  >  /dev/null", 
necOutputFilename); 
val  =  system(command); 
if(va0{ 

sprintf  (msg,  T%s]  -  NEC  execution  was  unsuccessful.**, 
necOutputFilename); 

createMessageDialog(topLevel,  "NEC  execution",  msg,  XmDlALOG_ERROR); 
return  (0); 

>  else 
return  (1); 

}  1*  end  necRunStatus  7 


•  Rlters  the  NEC  output  file  for  specified  products. 

. . . / 


void  needsftt  (ftype,  normal) 

int  ftype;  /•  Type  of  filtering  V 

float  normal;  /*  Power  7 

{ 

char  infiie  [132],  *ptn 

extern  char  ‘necOutputFilename; 

/•  determine  and  open  input  file  7 
strcpy(infile,  necOutputFilename); 
ptr  =  strrchf(infile,  (int)'.*); 
if  (ptr)  *(ptr)  =  *\0*; 

r  Open  the  NEC  output  file  7 

if  (fmRIePtr  =  efopen  (necOutputFilename,  "r"))  ==  NULL) 
return; 

switch  (ftype)  { 
case  IMPEDANCE 
impedance  (infile); 
break; 

case  ADMITTANCE* 
impedance  (infiie); 
break; 

case  CURRENTS: 
current  (infiie,  normal); 
break; 

case  CHARGE 
charge  (infiie,  normal); 
break; 
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case  COUPLING: 
couple  (infile); 
break; 

case  NEARJELECTRIC: 
electric  (Infile,  normal); 
break; 

case  NEAR_MAGNET1C: 
magnetic  (infile,  normal); 
break; 

case  RADIATION: 
pattern  (infile); 
break; 

default 

break; 

> 

printf  (ViNEC  filtered  file  is  available  in  ***.%s\n", 
fileExts[ftype]); 

fclose  (inFilePtr); 

}  r  end  necFifter  •/ 


*  couple 

*  Description:  Pulls  out  coupling  information  from  the  NEC  output  file. 

. . . / 


static  void  couple  (infile) 
char  *infiie; 

{ 

charoutfile  [132],  line  [132]; 
float  runtime,  freq,  zre,  zim,  power,  cpI; 
int  i,  nseg,  npatch,  iextag; 
static  char  ext  Q  =  ".rep"; 

FILE  *fp; 

r  Create  output  filename  &  open  file  */ 
strcpy(outfiie,  infile); 
strcat(outfile,  ext); 

if  ((fp  =  efopen  (outfile,  V))  ==  NULL) 
return; 

/•  Start  file  read  and  write  */ 
runtime  =  0; 
npatch  =  0; 

while  ((fgets  Oine,  MAXLINE,  inFilePtr))  1=  NULL)  < 

r  Find  total  segments  used  7 
if  (strstr  (line,  TOTAL  SEGMENTS  USED")  1=  NULL)  { 
sscanf  (line,  "TOTAL  SEGMENTS  USED=%cT,  Anseg); 
printf  f%.72s\n",  line); 
fgets  (line,  MAXLINE,  inFilePtr); 
npatch  =  0; 

if  (strstr  (line,  "PATCH**)  1=  NULL)  { 
sscanf  (line,  **  TOTAL  PATCHES  USED=%d",  Anpatch); 
printf  (Sfc.72s\n",  line); 

> 

fprintf  (fp,  *Vi  \"%s  -  %3d  segments,  %4d  patchesWf, 
infile,  nseg,  npatch); 

fprintf  (fp,  -%10s%14s\n“,  "FREQUENCY",  "ISOLATION"); 
fprintf  (fp,  "%8s%13s\n",  "(MHz)",  "(dB)“); 

r  Skip  over  segmentation  data  7 

>  else  if  (strstr  (line,  SEGMENTATION  DATA  -**)  1=  NULL)  { 
for  (i  =  0;  i  <  nseg;  i++)  fgets  Oine,  MAXLINE,  inFilePtr); 

r  Print  frequencies  to  stdout  7 
)  else  if  (strstr  Oine,  FREQUENCY  -**)  !=  NULL)  { 
fgets  Oine,  MAXLINE,  inFilePtr); 
fgets  (line,  MAXLINE,  inFilePtr); 
sscanf  Oine,  "  FREQUENCY=%f  MHZ",  Afreq); 
printf  r%3s%8.2f%4s\n",  TR",  freq,  "MHz"); 

/*  Get  antenna  input  parameters  7 

}  else  if  (strstr  Oine,  "-  ANTENNA  INPUT  PARAMETERS  -**)  1=  NULL)  { 
fgets  Oine,  MAXLINE,  inFilePtr); 
fgets  (line,  MAXLINE,  inFilePtr); 
fgets  Oine,  MAXLINE.  inFilePtr); 
fgets  Oine,  MAXLINE,  inFilePtr); 
sscanf  Oine,  **%d  %*d  %*f  %*f  %*f  %*f  %f  %f  %*f  %*f  %r, 

Aiextag,  Azre,  &zim,  A  power); 

r  Write  out  frequencies  &  coupling  to  .rep  file  7 
)  else  if  (strstr  Oine,  ISOLATION  DATA  -**)  !=  NULL)  { 
fgets  Oine,  MAXUNE,  inFilePtr); 
fgets  (line,  MAXLINE,  inFilePtr); 
fgets  Oine,  MAXLINE,  inFilePtr); 
fgets  Oine,  MAXLINE,  inFilePtr); 
fgets  Oine,  MAXLINE,  inFilePtr); 
sscanf  Oine,  %*d  %*d  %*d  %*d  %*d  %r,  AcpI); 
fprintf  (fp,  **%8.2f%14.3An“,  freq,  -cpl); 
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> 

> 

fciose  (fp); 

}  r  end  couple  7 

r . "*•«* . ************* 

*  current 

• 

*  Description:  Pulls  out  current  information  from  the  NEC  output  file. 

. . * . / 


static  void  current  (infile,  normal) 
char  ’•infile; 
float  norma); 

{ 

charoutfile  [132],  line  [132]; 

float  runtime,  freq,  power,  zre,  zim,  x,  y,  z,  curM,  curP,  scale, 
curNoc 

»nt  i,  nseg,  ncur,  npatch,  kfreq,  iextag,  idum,  rseg,  rtag; 
static  char  ext  0  =  ".rcr! 

RLE  fp; 

/*  Create  output  filename  &  open  file  V 
sticpy(outfile,  infile); 
strcatfoutfile,  ext); 

if  ((fp  =  efopen  (outfile,  *V))  =-  NULL) 
return; 

/*  Start  file  read  and  write  V 
runtime  =  0; 
kfreq  -  0; 
npatch  =  0; 

while  ((fgets  (line,  MAXLINE.  inFilePtr))  1=  NULL)  { 

r  Find  total  segments  used  V 
if  (strstr  (line,  TOTAL  SEGMENTS  USED!  !=  NULL)  { 
sscanf  (line,  “TOTAL  SEGMENTS  USED=%d“,  &nseg); 
ncur  =  nseg; 
printf  ("%.72s\n“.  line); 
fgets  (line,  MAXLINE.  inFilePtr); 
if  (strstr  (line,  "PATCH-)  !=  NULL)  { 
sscanf  (line.  “  TOTAL  PATCHES  USED=%d“,  &npatch); 
printf  f%.72s\n",  line); 

} 

fprintf  (fp,  *Vi  V  %s  -  %3d  segments,  %4d  patchesWi", 
infile,  nseg.  npatch); 

fprintf  (fp,  “  Current  scaled  to  %10g  Watts\n",  normal); 
fprintf  (fp.  fn%8s%4s%4s%7s%7s%17s%15s%7s\n",  “SEGMENT', 
TAG",  “X".  "Y~.  T,  “CURRENT",  “FREQUENCY", 

“SOURCES; 

fprintf  (fp,  "%42s%10s%8s\n",  "(AMPS)“,  "(DEG)",  "(MHz)!; 

T  Skip  over  segmentation  data  V 

)  else  if  (strstr  (line,  SEGMENTATION  DATA  -")  1=  NULL)  { 
for  (i  =  0;  i  <  nseg;  »♦+)  fgets  (line,  MAXUNE,  inFilePtr); 

r  Print  frequencies  to  stdout  7 

>  else  if  (strstr  (line,  “-  FREQUENCY  -“)  !=  NULL)  { 
fgets  (line,  MAXUNE,  inFilePtr); 

fgets  (line,  MAXLINE,  InFilePtr); 
sscanf  (line,  “  FREQUENCY=%f  MHZ“,  &freq); 
printf  ("%3s%8.2f%4s\n",  "FR",  freq,  "MHZ!; 
kfreq++; 

r  Get  antenna  input  parameters  7 

>  else  if  (strstr  (line,  "-  ANTENNA  INPUT  PARAMETERS  -!  1=  NULL)  { 
fgets  (line,  MAXLINE.  inFilePtr); 

fgets  (line.  MAXLINE,  inFilePtr); 
fgets  (line,  MAXLINE,  inFilePtr); 
fgets  (line,  MAXLINE,  inFilePtr); 
sscanf  (line.  **%d  %*d  %*f  %7  %7  %*f  %f  %f  %*f  %r, 

&  iextag,  &zre,  &zim,  &  power); 

>  else  if  ((strstr  (line, "  *****  !  !=  NULL)  && 

(strstr  (line.  "  PT  !  !=  NULL))  { 

sscanf  (line,  — —  INPUT  UNE  %’d  PT  %*d  %*d  %d  %d“,  &idum,  incur); 
ncur  =  ncur  -  idum  +  1 ; 

}  else  if  (strstr  fline, CURRENTS  AND  LOCATION  -!  !=  NULL)  { 
while  (strstr  (line,  "NO.  NO.!  -=  NULL) 
fgets  (line,  MAXLINE  inFilePtr); 
if  (ncur  ==  0)  ncur  -  nseg; 
for  (1  =  0;  i  <  ncur;  i++)  { 
fgets  (line,  MAXLINE,  inFilePtr); 
sscanf  (line,  "%d  %d  %f  %f  %f  %*f  %*f  %f  %r. 

&iseg,  &tog,  &x,  &y,  &z,  &curM,  &curP); 
scale  =  (float)  sqrt  ((double)  (nocmal/power)); 
curNor  =  curM  *  scale; 

fprintf  (fp,  "  %5d%5d%7.2f%7.2f%7.2f  %124g%7.1f%8.2f%6d\n", 
iseg,  tog,  x,  y,  z,  curNor.  curP,  freq,  iextag); 

} 

) 
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> 

fciose  (fp); 

}  P  end  current  V 


r . — — . 

•  chaise 

•  Description:  Pulls  out  selective  charge  density  information  from  the 

•  NEC  output  file. 

— - . . . . — . / 


static  void  charge  (infiie,  normal) 
char  *infiie; 
float  normal; 

{ 

charoutfle  [132].  line  [132]; 
float  freq,  power,  zre,  zim,  scale; 

int  i,  nseg,  ncur,  iextag,  iexcite,  incfreq,  idum,  rtag,  npatch,  nq; 
int  kfreq  =  0,  iwire  =  0; 
static  char  ext  Q  =  ".rq"; 

FILE  fp; 

P  Create  output  filename  &  open  file  7 
strcpy(outfile,  infile); 
strcat[outfile,  ext); 

if  ((fp  =  efopen  (outfile,  %0)  ==  NULL) 
return; 

P  Start  file  read  and  write  7 
npatch  =  0; 

while  {(fgets  Oine,  MAXLINE.  inFilePtr))  !=  NULL)  { 

P  Find  total  segments  used  7 
if  (stistr  (line,  TOTAL  SEGMENTS  USED")  1=  NULL)  { 
sscanf  Oine.  “TOTAL  SEGMENTS  USED=%d“(  &nseg); 
ncur  =  nseg; 
printf T%.72s\n“.  line); 
fgets  (line,  MAXLINE,  inFilePtr); 
if  (strstr  Oine,  “PATCIT)  I*  NULL)  { 
sscanf  Oine,  “  TOTAL  PATCHES  USED=%d“,  &npatch); 
printf  C*%.72s\n",  line); 

> 

fprintf  (fp,  “Vi  \"  %s  -  %3d  segments,  %4d  patchesV’VT, 
infile,  nseg.  npatch); 

fprintf  (fp,  “  Charge  scaled  to  %10g  WattsVn",  normal); 
fprintf  (fp,  "\n%8s%4s%4s%7s%7s%12s%13s%7s\n"  “SEGMENT, 
TAG",  "X",  T.  "Z“,  “CHARGE",  “FREQUENCY", 

“SOURCE"); 

fprintf  (fp,  “%45s%8s\n",  "(COULOMBS)",  “(MHz)”); 

P  Skip  over  segmentation  data  7 

}  else  if  (strstr  0«ne.  SEGMENTATION  DATA  -“)  !=  NULL)  { 
for  0  =  0;  i  <  nseg;  »♦+)  fgets  0>ne,  MAXLINE,  inFilePtr); 

P  Print  frequencies  to  stdout  7 

>  else  if  (strstr  Oine.  “-  FREQUENCY  -“)  !=  NULL)  { 
fgets  0«ne,  MAXLINE,  inFilePtr); 

fgets  Oine,  MAXLINE.  inFilePtr); 
sscanf  Oine,  “  FREQUENCY=%f  MHZ",  &freq); 
printf  (“%3s%8.2f%4s\n",  "FR",  freq,  “MHZ"); 
kfreq ++; 

P  Get  antenna  input  parameters  7 

}  else  if  (strstr  Oine,  ANTENNA  INPUT  PARAMETERS  -“)  1=  NULL)  { 
fgets  Oine,  MAXLINE.  inFilePtr); 
fgets  Oine,  MAXLINE,  inFilePtr); 
fgets  (line,  MAXLINE,  inFilePtr); 
fgets  (tine,  MAXLINE,  inFilePtr); 

sscanf  Oine,  “%d  %*d  %*f  %7  %7  %*f  %f  %f  %*f  %*f  %r, 

&iextag,  &zre,  &zim,  &power); 
scale  =  (float)  sqrt  ((double)  (normal/power)); 

>  else  if  ((strstr  Oine,  “  “)  !=  NULL)  && 

(strstr  Oine,  “  PT  ")  1=  NULL))  { 

sscanf  (line,  “"***  INPUT  LINE  %*d  PT  %*d  %*d  %d  %d“,  &idum.  incur); 
ncur  =  ncur  -  idum  +  1; 

P  Skip  over  currents  &  location  info  7 

>  else  if  (strstr  Oine,  “-  CURRENTS  AND  LOCATION  -“)  !=  NULL)  { 
while  (strstr  Oine,  “NO.  NO.“)  ==  NULL) 

fgets  Oine,  MAXLINE,  inFilePtr); 

>  else  if  ((strstr  (line,  "  “)  1=  NULL)  && 

(strstr  (line,  “  PQ  “)  !=  NULL))  { 

sscanf  Oine, - INPUT  LINE  %*d  PQ  %*d  %*d  %d  %d“,  iidum,  &nq); 

nq  =  nq  -  idum  +  1 ; 
if  (idum  ==  0)  nq  =  nseg; 


>  else  if  (strstr  (line,  “-  CHARGE  DENSITIES  -")  1=  NULL)  { 
if  (((iextag  ==  iexcite)  && 

(fmod  ((double)  kfreq,  (double)  incfreq)  ==  0))  || 

(iwire  ==  0))  { 
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float  x,  y,  z,  qNor,  qm,  qp; 
int  iseg; 
char  a; 

fgets  (line.  MAXLINE.  inFiiePtr); 
fgets  (line,  MAXUNE,  inFilePtr); 
fgets  (line,  MAXLINE,  inRIePtr); 
fgets  Oine,  MAXUNE,  inFilePtr); 
fgets  Oine,  MAXLINE,  inFilePtr); 
fgets  Oine,  MAXLINE,  inFilePtr); 
fgets  (line,  MAXUNE,  inFilePtr); 

while  (sscanf  Oine,  *  %d%c  %d  %f  %f  %f  %*f  %*f  %f  %f, 
&iseg,  &a,  &itag,  So,  &y,  &z,  &qm,  &qp)  >  0)  { 
qNor  =  qm  *  scale; 
if  (itag  =  iwire) 

fprintf  (fp,  "  %5d%e%4d%7.2f%7.2f%7.2f  %124g%S.2f\n", 
iseg,  a,  itag,  x,  y,  z,  qNor,  freq); 
if  (iwire  —  0) 

fprintf  (fp,  “  %5d%c%4d%7.2f%7.2f%7.2f  %124g%8.2f%7d\n", 
iseg,  a,  itag,  x,  y,  z,  qNor,  freq,  iextag); 
fgets  Oine,  MAXUNE,  inFilePtr); 

> 

}efse{ 

for  0  =  0;  i  <  nq;  i++) 
fgets  (line,  MAXLINE,  inRIePtr); 

> 

} 

> 

fdose  (fp); 

}  /*  end  charge  V 


pattern 

Description:  Pulls  out  selective  radiation  pattern  information  from 
the  NEC  output  file. 

. . . . •"/ 


static  void  pattern  (infile) 
char  *infile; 

{ 

charoutfile  [132],  line  [132]; 

float  freq,  power,  zre,  zim; 

int  i,  nseg,  ncur,  idum,  itag,  npatch,  ntheta,  nphi; 

int  kfreq  =  0; 

static  char  ext  Q  =  “.rpf*; 

RLE  fp; 

r  Create  output  filename  &  open  file  V 
strcpy(outfile,  infile); 
strcat(outfile,  ext); 

if  ((fp  =  efopen  (outfile,  *W*))  “  NULL) 
return; 

r  Start  file  read  and  write  7 
npatch  =  0; 

while  ((fgets  Oine,  MAXLINE,  inFilePtr))  !=  NULL)  { 

/*  Rnd  total  segments  used  7 
if  (strstr  Oine,  TOTAL  SEGMENTS  USED")  !=  NULL)  { 
sscanf  Oine,  "  TOTAL  SEGMENTS  USED=%d",  &nseg); 
ncur  =  nseg; 
printf  (**%.72s\n“,  line); 
fgets  Oine,  MAXLINE,  inFilePtr); 
if  (strstr  Oine,  "PATCH**)  1=  NULL)  { 
sscanf  Oine,  "TOTAL  PATCHES  USED=%d",  &npatch); 
printf  ("%.72s\n“,  line); 

> 

fprintf  (fp,  *Vi  V*  %s  -  %3d  segments,  %4d  patchesWiVn", 
infile,  nseg.  npatch); 

P  Skip  over  segmentation  data  7 

}  else  if  (strstr  Oine.  "-  SEGMENTATION  DATA  -**)  1=  NULL)  { 
for  (i  =  0;  i  <  nseg;  i++)  fgets  (line,  MAXLINE,  inFilePtr); 

>  else  if  ((strstr  Oine,  •*•*•***)  |=  NULL)  && 

(strstr  Oine,  "PT**)!=  NULL))  { 

sscanf  Oine,  *  INPUT  LINE  %*d  PT  %*d  %*d  %d  %d",  &idum,  &ncur); 
ncur  =  ncur  -  idum  +  1; 

r  Skip  over  currents  &  location  info  */ 

>  else  if  (strstr  Oine,  CURRENTS  AND  LOCATION  -**)  !=  NULL)  { 
if  (ncur  =  0)  ncur  =  nseg; 

for  (i  =  0;  i  <  ncur;  i++) 
fgets  Oine.  MAXL1NE,  inRIePtr); 

r  Print  frequencies  to  stdout  7 
}  else  if  (strstr  Oine.  "-  FREQUENCY  -")  1=  NUU)  { 
fgets  Oine,  MAXLINE,  inFilePtr); 
fgets  Oine,  MAXUNE.  inFilePtr); 
sscanf  Oine,  "  FREQUENCY=%f  MHZ".  &freq); 
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fprintf  (fp,  "  FREQUENCY  =  %9.3f  MHZ\n\n",  freq); 
printf  ("%3s%8.2f%4s\n",  “FR",  freq,  "  MHZ"); 
kfreq++; 


r  Get  antenna  input  parameters  */ 

}  else  if  (strstr  (line,  "-  ANTENNA  INPUT  PARAMETERS  -“)  1=  NULL)  { 
fgets  (line,  MAXLINE,  inFilePtr); 
fgets  (line,  MAXUNE,  inFilePtr); 
fgets  (line,  MAXLINE,  inFilePtr); 
fgets  (line,  MAXLINE,  inFilePtr); 
sscanf  (line,  "%d  %*d  %f  %*f  %*f  %f  %f  %f  %*f  %*f  %r, 

&rtag,  &zre,  &zim,  &  power); 
fprintf  (fp, 

"  SOURCE  :%4d  %10.3g  WATTS  %8.2f%8.2f  OHMS\n", 
itag,  power,  zre,  zim); 

}  else  if  (strstr  (line,  "  RP  ")  1=  NULL)  { 
sscanf  (line.  "  INPUT  UNE  %*d  RP  %*d  %d  %d",  &ntheta,  &nphi); 
printf  ("%72s\n",  line); 

}  else  if  (strstr  (line,  RADIATION  PATTERNS  -“)  1=  NULL)  { 
float  theta,  phi,  vert,  hor,  tot,  pol,  emagTheta,  phaTheta, 
emagPhi,  phaPhi; 
char  apol  [15]; 

fgets  (line,  MAXLINE,  inFilePtr); 
fgets  (line.  MAXLINE,  inFilePtr); 
fgets  (line.  MAXLINE,  inFilePtr); 
fgets  (line,  MAXLINE,  inFilePtr); 
fgets  (line,  MAXLINE,  inFilePtr); 

fprintf  (fp,  "%9s%6s%1 0s%7s%1 7s%1 7s\n*\  "  Theta  ",  "  Phi  ",  “  Vert ", 
"Hor “  E-Theta  ",  "  E-Phi "); 
fprintf  (fp,  "%9s%6s%10s%7s%10s%10s%10s%10s\n", 

"  (deg) ",  "(deg)",  "  (dB)  ",  “  (dB) ",  "(V/m)",  "(deg)", 

"(V/m )",  "(deg)"); 

while  (sscanf  (line.  "  %f  %f  %f  %f  %f  %f  %f  %s  %f  %f  %f  %r, 

&  theta,  &phi,  &vert,  &hor,  &tot  &pol,  &pol,  &apol, 
SemagTheta,  AphaTheta,  &emagPhi,  iphaPhi)  >  0)  { 
fprintf  (fp,  "  %7.1f%7.1f  %7.2f  %7.2f  %12.5e%8.2f%1Z5e%8.2f\n", 
theta,  phi.  vert  hor,  emagTheta,  phaTheta,  emagPhi, 
phaPhi); 

fgets  (line,  MAXLINE,  inFilePtr); 

> 

fprintf  (fp.  *Vi“); 

} 

} 

fclose  (fp); 

}  r  end  pattern  V 


impedance 


*  Description:  Pulls  out  impedance  information  from  the  NEC  output  file 

*  for  a  single  excitation. 


V 


static  void  impedance  (infile) 
char  *infile; 

{ 

charoutfile  [1 321.  line  [132]; 

float  freq,  power,  zre,  zim; 

int  i,  nseg,  ncur,  idum,  itag,  npatch; 

int  kfreq  =  0; 

static  char  ext  [J  =  “z"; 

FILE  *fp; 

r  Create  output  filename  &  open  file  */ 
strcpy(outfile,  infile); 
strcat(outfile,  ext); 

if  ((fp  =  efopen  (outfile,  V*))  ==  NULL) 
return; 

r  Start  file  read  and  write  V 
npatch  =  0; 

while  ((fgets  (line,  MAXUNE,  inFilePtr))  !=  NULL)  { 

r  Find  total  segments  used  V 
if  (strstr  (line.  TOTAL  SEGMENTS  USED")  !=  NULL)  { 
sscanf  (line,  "TOTAL  SEGMENTS  USED=%d",  &nseg); 
ncur  =  nseg; 
printf  ("%.72s\n",  line); 
fgets  (line,  MAXLINE,  inFilePtr); 
if  (strstr  (line,  "PATCH")  !=  NULL)  { 
sscanf  (line,  "TOTAL  PATCHES  USED=%d",  &npatch); 
printf  ("%.72s\n"f  line); 

} 

fprintf  (fp,  "tn  V*  %s  -  %3d  segments,  %4d  patchesVVi", 
infile,  nseg,  npatch); 
fprintf  (fp,  "\n%7s%6s%8s%8s%  1 6s\n", 

"Freq".  Tag",  "R“,  “X".  “GRAPS  SMITH"); 

r  Skip  over  segmentation  data  V 
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}  elM  if  (strstr  (line,  SEGMENTATION  DATA  -")  1=  NULL)  { 
for  (t  =  0;  i  <  nseg;  r++)  fgets  0in«.  MAXLINE,  inFilePtr); 


}  else  if  ((strstr  (line,  -  *****  ")  j=  NULL)  && 

(strstr  (line,  **  PT  *")  !=  NULL))  { 

sscanf  (line,  INPUT  UNE  %*d  PT  %*d  %*d  %d  %c T,  &idum,  incur); 

ncur  =  ncur  -  idum  +  1; 

r  Skip  over  currents  &  location  info  7 

}  else  if  (strstr  (line,  CURRENTS  AND  LOCATION  -")  !=  NULL)  { 
if  (ncur  —  0)  ncur  =  nseg; 
for  (i  =  0;  i  <  ncur  i++) 
fgets  Oine,  MAXLINE,  inFilePtr); 

r  Print  frequencies  to  stdout  7 

>  else  if  (strstr  Oine,  FREQUENCY  -")  1=  NULL)  { 
fgets  Oine,  MAXLINE,  inFilePtr); 

fgets  Oine,  MAXLINE,  inFilePtr); 
sscanf  Oine,  *  FR£QUENCY=%f  MHZ",  ifreq); 
printf  r%3s%8.2f%4s\nM,  TR",  freq,  "M HZ"); 
kfreq-M-; 

r  Get  antenna  input  parameters  7 

>  else  if  (strstr  Oine,  ANTENNA  INPUT  PARAMETERS  -")  1=  NULL)  { 
fgets  Oine,  MAXLINE,  inFilePtr); 

fgets  Oine,  MAXUNE,  inFilePtr); 
fgets  Oine,  MAXUNE,  inFilePtr); 
fgets  Oine,  MAXLINE,  inFilePtr); 

sscanf  Oine,  “%d  %*d  %f  %f  %f  %f  %f  %f  %7  %7  %r, 

&itag,  &zre,  &zim,  &  power); 
fprintf  (fp,  "  %0.2f  %5d  %7.1f  %7.1f  %7.2f  %7.2nn**, 
freq,  itag,  zre,  zim,  zre/50.  zim/50); 

> 

> 

/*  Extract  impedance  and  admittance  from  newly  created  file  7 
rewind  (fp); 
extract  (fp,  infile); 
fctose  (fp); 

>  r  end  impedance  7 


extract 

Description:  Program  extract  reads  in  a  .z  impedance  file  which 
has  been  created  by  the  needsftt  program.  It  then 
extracts  impedance  and  admittance  and  creates  the 
.rz  and  .ra  files,  respectively. 

***** . . . / 


static  void  extract  (zfile,  file_name) 

FILE  *zfile; 
char  *file_name; 

{ 

FILE  *rzfile,  Vafile; 
charrz_file[132),  ra_file{1321; 
static  char  rzQ  =  "  rz^, 
static  char  raQ  =  “ra*; 

char  Iine1[132],  Iine2[132],  Iine3[132],  Iine4[132); 
int  sources(900],  max_source,  i source,  i,  ia,  npts,  j,  k; 
float  freqs[900],  wavelens[900],  resis(900],  mac[900], 

resis_norm[900],  reac_norm[900],  con  due  [900],  suscep[900], 
a,  b,  c,  d,  e; 

r  Create  new  output  files  7 

strcpy(rz_file,fil©_name); 

strcpy(ra_file,file_name); 

strcat(iz_file,rz); 

strcat(ra_file,ra); 

if((fzfile  =  efopen(rz_file,'\v"))  ==  NULL) 
exit  (1); 

if((rafile  =  efopen(ra_file,"w'’))  ==  NULL) 
ewt(1); 

r  read  impedance  disk  file  7 
fgetsOinet,  MAXLINE,  zfile); 
r  fgetsOine2,  MAXLINE,  zfile);  7 
fgets(line3,  MAXUNE,  zfile); 
fgetsOine4,  MAXLINE,  zfile); 
fgetsOine4,  MAXLINE,  zfile); 
i  =  0; 

max_source  =  0; 

while  (fgetsOine4,  MAXLINE,  zfile)  !=  NULL)  { 
sscanfOine4,  "%f  %d  %f  %1  %f  %r,  &a,  &ia,  &b,  &c,  id,  &e); 
freqsfi]  =  a; 
wavelens[i]  -  300/a; 
sources  [i]  =  ia; 

if  (ia  >  max_source)  max_source  =  ia; 
resis[i]  =  b; 
reac[i]  =  c; 
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resisjiormp]  =  d; 
reac_norm[I]  =  e; 

conducfi]  =  resisO]/(resis[i]*resis[i]+reac[i]*reac[i]); 
suscepji]  =  >4,eac[i]/(resis[i]*resis[i]+reac[i]*reac[i]); 
i++; 

> 

npts  =  i; 

r  write  data  out  */ 
fputs(line1,  rzfile); 
fputsjlinel,  rafile); 
fputs(line2,  rzfile); 
fputs(line2,  rafile); 
fputs(1ine3,  rzfile); 
fputs(line3,  rafile); 
for  (i  =  0;  i  <  max_source;  i++)  { 
isource  =  H-1; 
for  (k  =  0;  k  <  npts;  k++)  { 
if  (sourcesjk]  ==  isource)  { 
fprintf  (rzfile, "Source  :  %4d\n",  isource); 
fprintf(rafile, "Source  :  %4d\n“,  isource); 
fprintf(rzfile,"  Normalized^"); 

fprintf(rzfile,"  Frequency  Resistance  Reactance  Resistance  Reactance\n“); 
fprintf(rzfile,"  (MHz)  (ohms)  (ohms)  (ohms)  (ohms)\n“); 
fprintf  (rafile,"  Wavelength  Conductance  Susceptance\n"); 
fprintf(rafile,"  (meters)  (mhos)  (mhos)\n"); 
for  (j  =  0;  j  <  npts;  j++)  { 
if  (sources)]]  “  isource)  { 

fprintf(rzfile,"  %8.2f  %1  l.lf  %12.1f  %1 1 .2f  %12.2ftn",freqsG],resis[n,reacQ], 
resis_norm{j],  reac_normQ]); 

fprintf  (rafile %8.2f  %13.4f  %13.4f\n",wavelens[J](conduc[j],suscep[j]); 

> 

> 

fprintf(rzfile,“  \n“); 
fprintf(rafile,"  \n*0; 
break; 

} 

> 

> 

fclose(rzfile); 

fclose(rafile); 

>  /*  end  extract  V 

. . 

*  electric 


Description:  Calls  nearField  procedure  to  pull  out  near  electric  field 
information  from  NEC  file. 


static  void  electric  (infile,  normal) 
char  ‘infile; 
float  normal; 

{ 

nearField  (infile,  normal,  ".me",  "-  NEAR  ELECTRIC  FIELDS  "  NE  "); 
}  r  end  electric  */ 

r . . . . 

*  magnetic 

*  Description:  Calls  nearField  procedure  to  pull  out  near  magnetic  field 

*  information  from  NEC  file. 

. . . . W>"W,"V 


static  void  magnetic  (infile,  normal) 
char  "infile; 
float  normal; 

{ 

nearField  (infile,  normal,  "mm",  "-  NEAR  MAGNETIC  FIELDS " NH  "); 
}  r  end  magnetic  */ 


nearField 

Description:  Pulls  out  near  electric/magnetic  field  information  from 
the  NEC  file.  If  the  last  comment  cards  in  the  NEC  input 
deck  are  as  follows: 

EXCITATION 

[1  st  antenna  excited] 

[2nd  antenna  excited] 

[etc] 

the  antenna  names  are  used  in  the  “•*\fld"  file  created. 


static  void  nearField  (infile,  normal,  ext  title,  code) 
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char  *infile; 

float  normal; 

char  *oxt  title,  ‘code; 

{ 

char  outfile  [132],  line  [132]; 
float  freq,  power,  zre,  zim; 
float  xO,  yO,  zO,  xstep,  ystep,  zstep; 
int  i,  nseg,  ncur,  idum,  itag,  npatch; 
int  iexcit  -  0; 
int  ix,  iy,  iz; 

RLE  *fp; 

static  char  excit  [10][72]  =  { 

■vvvwv.  -w* 

T  Create  output  filename  &  open  file  V 
strcpy(outfiie,  infile); 
strcat(outfile,  ext); 

if  ({fp  =  efopen  {outfile,.' VO)  =  NULL) 
return; 

r  Start  file  tead  and  write  */ 
npatch  =  0; 

while  ((fgets  (line.  MAXUNE,  inFilePtr))  1=  NULL)  { 

r  Find  EXCITATION  comment  V 
if  {strstr  (line,  -EXCITATION-)  1=  NULL)  { 
while  (1)  ( 
int  j; 

char  dummy  [132],  *ptn 

fgets  (line,  MAXLINE,  inFilePtr); 

if  (sscanf  (line,  "%s\n",  dummy)  <  1)  break; 

ptr=  line; 

while  (*ptr  ==  (int)'  'J  ptr++; 
j  =  strten  (ptr)  - 1; 
while  (ptrC]  ==“  ||  ptr(j]  “  '\n>)  j-; 
ptr[+^  =  ’VT; 

stmcpy  (excit  [i++],  ptr,  strien  (ptr)); 

} 

r  Rnd  total  segments  used  */ 

>  else  if  (strstr  (line,  TOTAL  SEGMENTS  USED**)  !=  NULL)  { 
sscanf  (line,  “TOTAL  SEGMENTS  USED=%d“,  &nseg); 
ncur=nseg; 

printf  f%.72s\n",  line); 
fgets  (line,  MAXLINE,  inFilePtr); 
if  (strstr  (line,  "PATCH")  1=  NULL)  { 
sscanf  (line,  -  TOTAL  PATCHES  USED=%d",  &npatch); 
printf  f%.72s\n",  line); 

} 

fprintf  (fp,  “\n  V*  %s  -  %3d  segments,  %4d  patches\"\n\n", 
infile,  nseg,  npatch); 

/*  Skip  over  segmentation  data  */ 

}  else  if  (strstr  (line, SEGMENTATION  DATA  -")  1=  NULL)  { 
for  (i  =  0;  i  <  nseg;  i++)  fgets  (line,  MAXUNE,  inFilePtr); 

>  else  if  ((strstr  (line, "*****")  |=  NULL)  && 

(strstr  (line.  "PT")!=  NULL))  { 

sscanf  (line,  — —  INPUT  UNE  %'d  PT  %*d  %*d  %d  %d",  &idum,  &ncur); 
ncur  =  ncur  -  idum  +  1; 

r  Skip  over  currents  &  location  info  V 

>  else  if  (strstr  (line.  "-  CURRENTS  AND  LOCATION  -“)  !=  NULL)  { 
if  (ncur  ==  0)  ncur  =  nseg; 

for  (i  =  0;  i  <  ncur;  i++) 
fgets  (line,  MAXLINE,  inFilePtr); 

r  Print  frequencies  to  stdout  V 

>  else  if  (strstr  (tine,  FREQUENCY  -")  !=  NULL)  { 
fgets  (line,  MAXLINE,  inFilePtr); 

fgets  (tine,  MAXLINE.  inFilePtr); 
sscanf  (line, "  FREQUENCY=%f  MHZ",  &freq); 
fprintf  (fp,  "  FREQUENCY  =  %9.3f  MHZ\n\n",  freq); 
printf  f  %12s%9.3f%6s\n",  "FR".  freq,  "MHZ"); 
iexcit  =  0; 

f*  Get  antenna  input  parameters  V 

>  else  if  (strstr  (line,  ANTENNA  INPUT  PARAMETERS  -“)  !=  NULL)  { 
fgets  (line,  MAXLINE,  inFilePtr); 

fgets  (line,  MAXLINE,  inFilePtr); 
fgets  (line,  MAXLINE,  inFilePtr); 
fgets  (line,  MAXLINE,  inFilePtr); 
sscanf  (line.  "%d  %*d  %f  %f  %f  %f  %f  %f  %*f  %*f  %r, 

&itag,  &zre,  &zim,  &  power); 

fprintf  (fp,"  SOURCE  :%4d  %10.3g  WATTS  %8.2f%S.2f  OHMS  %s\n", 
itag,  power,  zre,  zim,  excit(iexcit]); 
printf  ("%s\n“,  excjtOexcit++]); 

r  Search  for 1  NE  *  or  *  NH  ‘  input  line  */ 

>  else  if  (strstr  (line,  code)  !=  NULL)  { 
char  inputUne  [132]; 

char  template  Q  = 
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INPUT  LINE  %%*d%s%%*d  %%d  %%d  %%d  %%f  %%f  %%f  %%f  %%f  %%f; 


sprint#  {inputLine,  template,  code); 
sscanf  (line,  inputLine, 

Six,  &iy,  &iz,  &x0.  &y0,  &z0,  ixstep,  &ystep,  &zstep); 

r  Search  for '  NEAR  ELECTRIC  FIELD  *  or '  NEAR  MAGNETIC  FIELD  *  V 

>  else  if  (strstr  (line,  tide)  1=  NULL)  { 
float  scale,  it; 

char  card  [132]; 
char  template  Q  = 

“  %s%%5d%%5d%%5d  %%8.2f%%8.2f%%8.2f  %%8.2f%%8.2f%%8.2fto"; 

sprintf  (card,  template,  code); 

print#  (card,  ix,  iy,  iz,  xO,  yO,  20,  xstep,  ystep,  zstep); 

fgets  (line,  MAXLINE.  inFilePtr); 

fgets  (line,  MAXLINE,  inFilePtr); 

fgets  (line,  MAXLINE,  inFilePtr); 

fgets  (line,  MAXLINE,  inFilePtr); 

fprintf  (fp, 

"  In  the  following:  average  field  normalized  to  %10g  WATTSto", 
normal); 

if  (strcmp(ext,“.  mm1)  =  0) 

fprintf  (fp,  "%7s  %7s  %7s  %7s  %7s  %7s  %8s\n",  “  X  "  Y  ", 

"  Z  ",  "  Hx  ",  "  Hy  "  Hz  ",  "  H  total"); 

else 

fprintf  (fp,  "%7s  %7s  %7s  %7s  %7s  %7s  %8sto",  "  X  ",  "  Y  ", 

"  Z ",  "  Ex  ",  "  Ey ", "  Ez  "  E_totar) ; 

scale  « (float)  sqrt  ((double)  normal/power); 
ii  =  ix  "  iy  *  iz; 
for  (i  =  0;  i  <  ii;  i++)  { 
float  x,  y,  z.  ex,  ey,  ez,  e_av. 
ex_av,  ex_nor,  ey_av,  ey_nor, 
ez_av,  ez_nor,  e_total; 

fgets  (line,  MAXLINE,  inRIePtr); 
sscanf  (line,  "%f  %f  %f  %f  %*f  %f  %*f  %f, 

&x,  &y,  &z,  &ex,  &ey,  &ez); 

ex_av  =  ex  /  sqrt  (2.0); 
ex_nor  -  ex_av  •  scale; 
ey_av  =  ey  /  sqrt  (2.0); 
ey_nor  =  ey_av  *  scale; 
ez_av  =  ez  /  sqrt  (2.0); 
ez_nor  =  ez_av  *  scale; 

e_av  =  sqrt  ((double)  (ex*ex  +  ey*ey  +  ez*ez)  /  2); 
e_totaf  =  e__av  *  scale; 

fprintf  (fp,  "%7.2f%7.2f  %7.2f  %7.2f  %7.2f  %7.2f  %8.2fto", 

X  y,  z,  ex_nor,  ey_nor,  ez_nor,  e_total); 

> 

fprintf  (fp,  "to"); 

} 

> 

fclose  (fp); 

)  r  end  nearfield  7 
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A.18  necdisp.c: 


necdisp.c: 

include  <Xm/DrawingA.h> 
include  <Xm/Fonn.h> 
include  <Xm/Label.h> 
include  <Xm/Frame.h> 
include  <Xm/PushB.h> 

#mdude  <Xm/RowColumn.h> 
include  <Xm/Scale.h> 
include  <  Xm/S©  para  tor.  h> 
include  <Xm/Usth> 
include  <Xm/SelectioB.h> 

#indude  <Xm/PanedW.h> 
include  <stdio.h> 
include  <string.h> 
tfndude  <math.h> 

#mclude  "xgraphics.h" 
include  "cFileMenu.h" 
include  "action Area. h" 

#d©fin©  MAXUNE  120 

#d©fin©  degrees_tojradians  0.017453292 
#deftn©cdr  0.017453292 

extern  int  NumWires,  NumSegs; 

extern  float  Xmin,  Xmax,  Ymin,  Ymax.  Zmin,  Zmax,  Xshift,  Yshift,  Zshift,  Scale, 
SegMin,  SegMax,  RadMin,  RadMax,  SrMin,  SrMax; 
extern  float  "Xnodel ,  *Ynode1,  *Znode1,  *Xnode2,  *Ynode2,  *Znode2; 
extern  float  *Segs,  *Rads,  *SrRatio; 

/*  Indexes  into  global  arrays  */ 

extern  int  \Jseg,  *Jwire,  *lseg,  *lrad,  *tsr,  "Icon,  *lseglg,  *lradlg,  *!srig; 
extern  int  *ldiag; 

static  float  ***tdbdata; 
static  float  —pdbdata; 
static  float  ***ethdata; 
static  float  ***ephdata; 
static  float  **ethphase; 
static  float  **ephphase; 
r 

static  float  tdbdata{360]r90][3); 
static  float  pdbdata[360][90J[3]; 
static  float  ethdata{360]t90][3J; 
static  float  ephdata[360][90][3J; 
static  float  ethphase(360][90]; 
static  float  ©phphase[360][90]; 

*/ 

static  float  phase; 

static  float  minval[16],  maxval[16]; 
static  interval; 
static  float  **ne_val; 
static  float  **nh_val; 
static  XgPoint  *ne_points; 
static  XgPoint  *nh_points; 
static  XgPoint  *bgn_points; 
static  XgPoint  "enajpoints; 

r 

static  int  ival[15][3000]; 

static  float  ne_va![2][3000]; 

static  XgPoint  ne_points[3000J; 

static  XgPoint  bgn_points[3000J,end _points[3CXX3]; 

*/ 

static  int  maxthetas,  maxphis; 
static  XgPoint  axes[4]; 
static  int  numsegs; 
static  int  numnepts; 
static  int  numnhpts; 

static  char  in  Jile_ne[1 321; 
static  char  in__file_nh[132]; 
static  char  injile_pt(132]; 
static  char  in_file_crt132]; 
static  char  in_file_q[132]; 

static  Xg  Device  xgdl ; 

static  void  initializeO; 
static  void  destroyCBO; 
static  void  DrawCallbackO; 
static  void  PushCallbackO; 
static  void  PushCallback20; 
static  void  ScaleCallbackO; 

static  char  ‘buttonLabels  Q  =  fPlan"  "Elevation",  "Bow"}; 
static  char  labelsQ  =  {Toggle  Axes",  "Reset",  "Print",  “Quit"}; 
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static  char  ’ziabeisQ  =  fX",' "Y","Scale*7; 


r  Drawing  data  V 
typed ef  struct  _drawData  { 
int  type;  f*  Drawing  type  */ 

XgDevk^xgd;  /*  Xgraphics  device  for  drawing  V 

Widget  az^scale,  el_scale,  P  Scale  widgets  */ 
x_scale,  y_scale, 
zoom_scale; 

int  source; 
float  freq; 

}  DrawOata; 

static  int  wirelndex; 
static  void  updateCBO; 

Boolean  DRAW  =  False; 
static  Widget  popupShell  =  NULL; 
extern  Widget  straightWiresShell; 
extern  Widget  nodeCoordShell; 

r . . . . » 

*  necDisplay 

. / 


void  necDisplay  (full_name,  plttype,  source,  selfreq) 
char  *ful!_name; 
int  plttype; 
int  source; 
float  selfreq; 

< 

Display  ’display; 

Widget  shell,  Main,  frame,  form,  rowCol,  button, 
drawingl,  separator,  scale.  rowCo!2, 
az_scale,  el_scale,  x_scale,  y_scale,  zoom_scale; 

int  i, value; 

XgOrient  orient; 

XgZoom  zoom; 

Xg  Extents  extents; 

DrawOata  ’drawData; 
char  file_name[1 32]; 
char  ttoptrtle; 
chartitle[132]; 

.  char  *ptr 

static  char  meQ  =  ",me“; 

static  char  mmQ  =  “.mm”; 
static  char  rptfl  =  ".rpt“; 
static  char  rcrQ  =  "  rcr"; 
static  char  rqQ  =  ".rq"; 
static  char  ’pretitles  Q  =  { "Diagnostics:  ", 

"Segmentation:  ",  "Wire  Radius:  ",  "Segment  to  Radius  Ratio:  ", 

"Wire  Connections: ",  "Segmentation  (log  scale):  ", 

"Wire  Radius  (log  scale):  ",  "Segment  to  Radius  Ratio  (log  scale):  ", 
"Current  Magnitude:  ",  "Current  Magnitude  (log  scale):  ", 

"Current  Phase:  ",  "Charge:  ",  “Charge  (log  scale):  ", 

"Ez  normalized:  ",  "E  normalized: ", 

"Hx  normalized:  ",  "Hy  normalized:  ",  "E-theta:  ", 
"E-theta  (dB):  ",  "E-phi: ",  "E-phi  (dB):  *}; 

Arg  args(2 ]; 

extern  Widget  topLevel; 

if  (plttype  >  7)  { 

P  get  in  filename  */ 
sttcpy(fiie_name,full_name); 
ptr  =  stJTChr{file_name,\'); 
if  (ptr)  *(ptr)  =  ’NO*; 

} 

P  check  to  see  whether  we  are  doing  currents  V 
if  ((plttype  ==  8)||(plttype  ==  9)Jj(plttype  ==  10))  { 
strcpy(in_file_cr,file_name); 
strcat(in_file_cr,  rcr); 

> 

P  check  to  see  whether  we  are  doing  charges  V 
if  ((plttype  ==11)||(plttype==  12))  { 
strcpy(in_file__q,file__name); 
strcat(in_file_q.rq); 

> 

P  check  to  see  whether  we  are  doing  near  electric  fields  */ 
if  ((plttype  =  13)||(ptttype==  14))  { 

3trcpy0n_fik_ne,file_name); 
strcat(in  file  no,  me); 

} 

P  check  to  see  whether  we  are  doing  near  magnetic  fields  7 
if  ((plttype  ==  1 5)|j(plttype  ==  16))  { 
strcpy(in_file_nh,fiie_name); 
strcat(in_file_nh,mm) ; 

) 

P  check  to  see  whether  we  are  doing  far  field  patterns  V 
if  ((plttype  ==  17)H(plttype  ==  18)||(ptttype  ==  19)il(plttype  ==  20))  { 
stapy0n_file _pt,file_name); 
strcatfin  file _jrt,rpt); 

> 
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r  Create  the  window  tide  V 
i  =  strlen  (pretitles[pittypefl; 
stmcpy  (title,  pretjtJes[plttype],  i); 
titJoJi]  =  Tff; 
strcat(title,  full_name); 
toptitle  =  title; 

initialize(source,  selfreq,  ptttype); 

XtSetArg  (args[0],  XmNtitJe,  tide); 

sheH  =  XtCreatePopupShell  ("XGraphics",  topLevelShellWidgetClass, 

topLevel,  args,  1); 

XtVaSetValue*  (shell,  XmNdeleteResponse.  X/nDESTROY,  NULL); 
XtAddCallback  (shell,  XmNdestroyCallback,  destroyCB,  NULL); 

displays  XtDisplay(shell); 

Main  =  XtVaCreateManagedWidget 
("Main", xmFormWidgetClass, shell, 

XmNx,  15, 

XmNy,  15, 

NULL); 

frame  =  XtVaCreateManagedWidget 
("frame",  xmFrameWidgetClass,  Main, 

XmNtop Attachment  XmATTACH_FORM, 

XmNleftAttachment  XmATTACH  FORM, 

XmNleftOffset  15, 

XmNtopOffset  15, 

XmNshadowType,  XmSHADOW_OUT, 

NULL); 

form  -  XtVaCreateManagedWidget 
("form",  xmFormWidgetClass,  frame,  NULL); 

rowCol  =  XtVaCreateManagedWidget 
f rowCof,  xmRowColumnWidgetClass,  form, 

XmNtopAttachment  XmATTACH_FORM, 

XmNleftAttachment  XmATTACH_FORM, 

XmNmarginHeight  1, 

XmNmarginWidth,  1, 

XmNspadng,  1, 

NULL); 

for  (i  =  0;  i  <  XtNumber  (buttonLabels);  i++)  { 
button  =  XtVaCreateManagedWidget 
("button",  xmPushButtonWidgetClass,  rowCol, 

XtVaTypedArg,  XmNiabelString, 

XmRString,  buttonLabels[i],  strten  (buttonLabelspp  +  1, 

NULL); 

XtAddCallback(button,  XmNactivateCallback,  PushCallback2,  (XtPointer)i); 

) 

az_scale  =  XtVaCreateManagedWidget 
(“az_scale",  xmScafeWidgetClass,  form, 

XmNtopAttachment  XmATTACH_WIDGET, 

XmNtopWidget  rowCol, 

XmNtopOffset  25, 

XmNleftAttachment  XmATTACH  FORM, 

XmNwidth,  150, 

XmNminimum,  -180, 

XmNmaximum,  180, 

XmNvalue,  0, 

XmNshowValue,  True, 

XmNorientation,  XmHORIZONTAL, 

XtVaTypedArg,  XmNtitleString,  XmRString,  "Azimuth",  8, 

NULL); 

XtAddCallback(az_scale,XmNvaiueChangedCallback,ScaleCallback,{XtPointer)0); 

XtAddCallback(az_scale,XmNdragCallback,ScaleCalibackf(XtPointer)0); 

el_scale  =  XtVaCreateManagedWidget 
("el  scale",  xmScaleWidgetCJass,  form, 

XmNtopAttachment  XmATTACH J/VIDGET, 

XmNtopWidget  az_scale, 

XmNtopOffset  15, 

XmNleftAttachment  XmATTACH_FORM, 

XmNwidth,  150, 

XmNminimum,  -90. 

XmNmaximum,  90, 

XmNvalue,  0, 

XmNshowValue,  True, 

XmNorientation,  XmHORIZONTAL, 

XtVaTypedArg,  XmNtitleString,  XmRString. "Seva bon",  10, 

NULL); 

XtAddCallback(el_scale,XmNvalueChangedCaHback,ScaleCaJlback,(XtPointer)1); 
XtAddCallback(ei_scale,XmNdragCallback,  ScaleCaltback,  (XtPointer)  1 ); 


value  =  50; 
scale  =  el_scale; 

for(i=0;i<XtNumber(zlabels);i++)  { 
if(i  ==  2)  values  100; 
scale  =  XtVaCreateManagedWidget 
C scale",  xmScaleWidgetClass,  form, 
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XmNtopAttachment  XmATTACH^WiDGET, 

XmNtopWidget  scale, 

XmNtopOffset  15, 

XmNleftAttachment  XmATTACH  FORM, 

XmNwidth,  150, 

XmNmmimum,  0, 

XmNmaximum,  100, 

XmNvalue,  value, 

XmNshowValue,  True, 

XmNorientation,  XmHORIZONTAL, 

XtVaTypedArg,  XmNtitieString,  XmRString,  2labels[i],  6, 

NULL); 

XtAddCallback  (scale,  XmNvalueChanged  Callback,  ScaleCallback, 
(XtPointer)(i+2)); 

XtAddCallback  (scale,  XmNdragCallback.  ScaleCallback, 
(XtPointer)(i+2)); 

if (i=0)  x_scale  =  scale; 

jf0=1)  y_scale  =  scale; 

if0=2)  zoom_scale  =  scale; 


frame  =  XtVaCreateManagedWidget 
("frame",  xmFrameWidgetClass,  Main, 

XmNtopAttachment  XmATTACH_FORM, 

XmNtopOffset  15, 

XmNrightAttachment  XmATTACH_FORM, 

XmNrightOffset  15, 

XmNleftAttachment  XmATTACH_ WIDGET, 

XmNleftWidget  frame, 

XmNleftOffset  15, 

XmNshadowType,  XmSHADOW_OUT, 

XmNmarginWidth,  10, 

XmNmarginHeight  10, 

NULL); 

drawingl  =  XtVaCreateManagedWidget 
("button",  xmDrawingAreaWidgetCiass,  frame, 

XmNwidth,  500, 

XmNheight  500, 

XtVaTypedArg  ,XmNbackground,XmRString,“black“, 4, 

XtVaTypedArg, XmNforeg  round, XmRString, "white", 4, 

NULL); 

separator  =  XtVaCreateManagedWidget 
("sep",  xmSeparatorWidgetClass,  Main, 

XmNtopAttachment  XmATTACH_WIDGET, 

XmNtopWidget  frame, 

XmNtopOffset  10, 

XmNrightAttachment  XmATTACH_FORM, 

XmNleftAttachment  XmATTACH  "FORM, 

NULL); 

rowCo!2  =  XtVaCreateManagedWidget 
frowCo r,  xmRowColumnWidgetClass,  Main, 

XmNtopAttachment  XmATT ACH_WIDG ET, 

XmNtopWidget  separator, 

XmNtopOffset  10, 

XmNleftAttachment  XmATTACH_FORM, 

XmNleftOffset  10, 

XmNrightAttachmentXmATTACH_FORM, 

XmNbottomAttachmentXmATTACH_FORM, 

XmNbottom  Offset  10, 

XmNmarginHeight  1, 

XmNmarginWidth,  1, 

XmNspacing,  1, 

XmNorientation,  XmHORIZONTAL, 

NULL); 

for(i=0;i<XtNumber(labels);i++)  { 
button  =  XtVaCreateManagedWidget 
("button",  xmPushButtonWidgetClass,  rowCol2, 
XtVaTypedArg,XmNlabelString,XmRString,labels[i],20, 

NULL); 

XtAddCallback(button,XmNactivateCaIlbaek,PushCallback,(XtPointer)i); 


XtPopup  (shell,  XtGrabNone); 

XgOpenXGraphicsO; 

xgdl  =  XgOpenWidget(drawingl); 

XtAddCal iback(d rawing  1 ,  XmNinputCallback,  DrawCallback,  (XtPointer)  NULL); 

r  Create  structure  for  storing  drawing  data  V 
drawData  =  (DrawOata  *)  XtMalloc  (sizeof  (DrawData)); 
drawOata->type  =  plttype; 
drawData->xgd  =  xgdl; 
drawOata->az_scale  =  az_scale; 
drawData->el_scale  =  el_scale; 
drawData->x_scale  =  x_scale; 
drawData->y_scale  =  y_scale; 
drawData->zoom_scale  =  zoom_scale; 
drawData->  source  =  source; 
draw£3ata->freq  =  selfreq; 
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if  (ptttype  <  17) 

XtAddEventHandler(sheil,  FocusChangeMask,  False, 
(XtEventHandlerJupdateCB,  (XtPomterJdrawData); 

XtVaSetValues  (shell,  XmNuserOata,  drawOata,  NULL); 
XtVaSetValues  (form,  XmNuserOata,  drawOata,  NULL); 
XtVaSetValues  (rowCo!2,  XmNuserOata,  drawOata,  NULL); 
XtVaSetValues  (drawingl,  XmNuserOata,  drawOata,  NULL); 

XglnquireOrthographicView(&orient,&zoom,&extents); 

onentaz  =  0; 

orient©!  =  0; 

zoom  jccenter  =  0.5; 

zoom.ycerrter  =  0.5; 

zoom.scale  =  1.0; 

extents,  ymin  =  -2.0; 

extents,  ymax  =  20; 

XgSetOrthographicView(&orient&zoom,&extents); 
XgSetCurrentOevice(xgd  1 ); 

I*  Draw  graphics  */ 
if  (plttype  <  17) 

OrawGeo  (plttype); 
else 

DrawPat  (plttype); 
if  ((plttype  =  13)||(plttype  =  14)) 

DrawNE  (plttype); 
if  ((plttype  ==  15)||(pfttype  =  16)) 

DrawNH  (plttype); 


void  initialize  (source,  selfreq.  plttype) 
int  source; 
float  selfreq; 
int  plttype; 

{ 

FILE  "infile^e; 

FILE  •infilelnh; 

FILE  *infile_pt 
RLE  *infile  cr. 

FILE  'infile^q; 
char  line(120); 
char  iookfoM  [23], 
char  Iookfor2[15]. 
int  numwires 
int  i,j,ia.ib,ic; 
char  ch; 

float  a.b.c.d.e.f.o.p, 

float  xmin,xmax,ymin.ymax,zmm,zmax; 

float  xcen,ycen,2cen. 

float  m  scale; 

float  Ez_max,E_max; 

float  Hx_max,Hy_max; 

int  ipts,  iphis,  ithetas; 

float  tdbmax,  pdbmax,  ethmax,  ephmax; 

float  theta,  phi,  tdb,  pdb.  ethmag,  ethph,  ephmag,  ephph; 

float  oldtheta,  oldphi; 

float  ’ccdata; 

r 

float  ccdata[3000); 

*/ 

if  (plttype  <  17)  { 

r  handle  currents,  if  necessary  V 
if  ((plttype  ==  8)||(ptttype  ==  9)!l(ptttype  =  10))  { 
if  ((infile_cr  =  fopen(in_file_cr,Y*))  =  (FILE*)0)  { 

printfOnVM  File  %s  could  not  be  opened.  \n*\in_file_cr); 
exit(1); 

> 

ccdata  =  (float  *)XtCalloc(NumSegs,sizeof  (float)); 

/*  dump  first  6  lines  */ 
fgets(line,  MAXLINE,  infile_cr); 
fgets(line,  MAXLINE,  infile  cr); 
fgetsfline,  MAXLINE,  infile_cr); 
fgetsfline,  MAXLINE,  infile_cr); 
fgetsOine,  MAXLINE.  infi!e_cr); 
fgets(line,  MAXLINE,  infile_cr); 
r  now  read  in  current  data  */ 
i  =  0; 

while  ((fscanf(infile_cr,’*%d  %d  %f  %f  %f  %f  %f  %f  %<T, 

&ia,&ib,&a,&bl&c,&d,&e,&f,&ic)}  1=  EOF)  { 
if  ((source  ==  ic)&&(selfreq  —  f))  { 
switch  (plttype) 

{ 

case  8:  ccdata  [I]  =  d; 
if  (i  ==  0)  {  minval[7]  =  d;  maxval[7]  =  d; } 
else  { 

if  (d  <  minval[7])  minval[7]  =  d; 
if  (d  >  maxvai[7j)  maxvai[7J  =  d; 

) 

break; 

case  9:  ccdata  [i]  =  d; 
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if  (i  ==  0)  {  minval[8]  =  d;  maxval[8]  =  d; } 
els©  { 

if  (d  <  minval[8])  minval[8]  =  d; 
if  (d  >  maxval[81)  maxval[8J  =  d; 

} 

break; 

case  10:  while  (e  <  0)  e  =  e  +  360.0; 
while  (e  >=  360.0)  e  =  e  -  360.0; 
ccdata[i]  =  e/60.0; 

> 

i++; 

> 

> 

fciose(infile_cr); 

> 

r  handle  charges,  if  necessary  7 
if((ptttype==11)||(plttype  ==  12))  { 
if  ((infile_q  =  fopen(in_file_q,“0)  ==  (FILE*}0)  { 

printfOn\ttt  File  %s  could  not  be  opened.  \n"in_file_q); 
exit(1); 

> 

l*  dump  first  8  lines  7 

ccdata  =  (float  *)XtCaIloc(NumSegs,sizeof(float)); 

fgets(line,  MAXLINE,  infile_q); 

fgets(line,  MAXLINE,  infile_q); 

fgets(line,  MAXUNE,  infite^q); 

fgets(line,  MAXLINE,  infile_q); 

fgets(line,  MAXLINE,  infile_q); 

fgets(line,  MAXLINE,  infile__q); 

/*  now  read  in  charge  data  7 
i  =  0; 

while  ((fscanf(infile_q,"%5d%c  %d  %f  %f  %f  %f  %f  %d", 

&ia,&ch,&ib,&a,&b,&c,&d,&e,&ic))  !=  EOF)  { 
if  ((source  ==  ic)&&(selfreq  ==  e))  { 
if  (ch  ==  'E*)  i  =  i-1; 
ccdata  [i)  =  d; 
switch  (plttype) 

{ 

case  1 1 :  if  (i  ==  0)  {minval[10]  =  d;  maxvalpO]  =  d; ) 
else  { 

if  (d  <  minvaipOJ)  minval(10]  =  d; 
if  (d  >  maxvaipO])  maxvaipO]  =  d; 

} 

break; 

case  12;  if  (i  ==  0)  {  minvalp 1)  =  d;  maxval[1 1]  =  d; ) 
else  { 

if  (d  <  minvalp  1])  minvalp  1]  =  d; 
if  (d  >  maxvaip 1J)  maxvaip  1]  =  d; 

} 

break; 

} 


> 

} 

fclose(infi!e  q); 

) 

/*  now  go  read  geometry  data  7 
numwires  =  Num  Wires; 
numsegs  =  NumSegs; 

F  now  go  allocate  the  memory  7 
ival  =  (int  **)XtCalloc(17,sizeof(int  *)); 
for  (i=0;  i<17;  ++i) 

{ 

ival[i]  =  (int  •JXtCalloctNumSegs.sizeofOnt)); 

} 

bgn ^points  =  (XgPoint  ^XtCalloc  (NumSegs, sizecf(XgPoint)); 
end _points  =  (XgPoint  *)XtCalloc(NumSegs,sizeof(XgPoint)); 


xmin  =  Xmin;  xmax  =  Xmax; 
ymin  =  Ymin;  ymax  =  Ymax; 
zmin  =  Zmin;  zmax  =  Zmax; 
xcen  =  (xmin+xmax)/2.0; 
ycen  =  (ymin+ymax)/2.0; 
zcen  =  (zmin+zmax)/2.0; 
m  scale  =  Scale; 
mscale  =  mscale  *  1.0; 
minval[0]  =  SegMin; 
minval{4]  =  SegMin; 
maxval[0]  =  SegMax; 
maxval[4]  =  SegMax; 
minvalp]  =  RadMin; 
minval[5]  =  RadMin; 
maxvaip]  =  RadMax; 
maxvat[5]  =  RadMax; 
mi  rival  [2]  =  SrMin; 
minval[6]  =  SrMin; 
maxvaip]  =  SrMax; 
maxval(6]  =  SrMax; 

for  (i=0;  i<numsegs;  i++)  { 
switch  (plttype)  { 
case  0;  ival[0][i]  =  ldiag(i]; 
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break; 

case  1:  ival(1][i]  =  lseg[i]; 
break; 

case  2  rval[2][i]  =  Iradp]; 
break; 

case  3:  ival[3][i]  =  Isrfi]; 

break; 

case  4:  ival[4](i]  =  Iconfi]; 
break; 

case  5:  ival[5][i]  =  Iseglgp]; 
break; 

case  6:  rvat[6][i]  =  lradlg[i]; 
break; 

case  7:  »val|7][i]  =  lsrig[i]; 
break; 

case  8: 

if  (minvai[7]  ==  maxval[7])  ival[S][i]  =  0; 
else  { 

ival[8][i)  =  {ccdata[i]-minvai[7])/(maxvall73-niinval(7])*7; 
if  (ccdata[i]==maxval(7])  jval(8)(i]  =  6; 

> 

break; 

case  9: 

if  (minval[8]  =  maxval[8])  ival[9][i]  =  0; 

else  { 

ival[9}[i]  =  (logl  0(minvaI[8J/ccdata{t])/lofl1 0(minval[8J/maxval[8D)*7; 
if  (ccdata{i]==maxval(8D  ival[9J[i]  =  8; 

) 

break; 

case  10: 

ival[10J[i]  =  ccdatafi]; 
break; 

case  11: 

if  (minval[10]  ==  maxval[10D  ival(11][i}  =  0; 
else  { 

ivai[11][i]  =  (ecdata(i]-minval[10Mn‘iaxval[10]-rT)inval[10])*7; 
if  (ccdata[i]==maxval[1 0])  ivai[1 1]£i]  -  6; 

} 

break; 

case  12: 

if  (minval[1 1  ]  ==  maxval[1 1  ])  ival[1 2]p]  =  0; 
else  { 

ival[12J[i]  =  (log10(rninval(1iyccdata[i])/log1Q(minval[11)/maxval(11]))*7; 
if  (ccdata[i]~maxval[11D  ival(12][i]  =  6; 

> 

break; 

case  13: 

tval[13][i]  =  7; 

break; 

case  14: 

ival[14][i]  =  7; 
break; 

case  15: 

•val[15j[i3  =  7; 
break; 

case  16: 

ival[16][i]  =  7; 
break; 


> 

bgn_points[i].x  -  -(Ynode1[i]-ycen)*mscale; 
bgn_points[i].y  =  -(Xnodel  [ij-xcen)*mscale; 
bgn_points[i).z  =  Znode1[i]*mscale; 
end_points[i].x  =  -(Ynode2[i]-ycen)*mscale; 
end_points[i].y  =  -(Xnode2[i]-xcen)*mscale; 
endjpoints[i].z  =  Znode2[i]*mscale; 


> 

if  ((plttype  >  7)&&(plttype  <  13))  XtFree((char  *)  ccdata); 

axes(0].x  =  0.0; 

axes(G].y  =  xcen*mscale; 

axes[0].z  =  0.0; 

axesjl  j.x  =  0.0; 

axesjl  j.y  =  xcen*mscale-4.0; 

axesjl  j.z  =  0.0; 

axes[2].x  =  -4.0; 

axes[2].y  =  xcen*mscale; 

axes[2].z  =  0.0; 

axes(3].x  =  0.0; 

axes  [3],  y  =  xcen'mscale; 

axes  [3], z  =  4.0; 

> 

/•  put  in  near  electric  fields  if  necessary  7 
if  ((plttype  ==  13)||  (plttype  =  14))  { 
if  ((infile_ne  » fopen(in_file_ne,**0)  ==  (FILE*)0)  { 
printfOn\t\t  File  %s  could  not  be  opened.  \n“,in  file  ne); 
exit(1); 

> 

r  first  look  for  frequency  7 

sprintf(lookfor1  “  FREQUENCY  =%10.3f\selfreq); 

fgets(Iine,  MA)djNE,  infile  ne); 

•(line  +  22)  =  *10*; 
while(strcmp(lookfor1,line)  !=  0) 
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{ 

if  (fgetsCine,  MAXLINE,  infile  ne)  =  NULL)  { 
printf(*An  REACHED  END  of  FILE!**); 
exit(1); 

} 

•Cine  +  22)  =  AO*; 

} 

T  now  took  for  source  */ 
iprintf(tookfor2,"  SOURCE  :%5d*\  source); 
fgets(line,  MAXLINE,  infile  ne); 

*Cine  ♦  14)  =  W; 
while(strcmp(iookfor2,!ine)  1=  0) 

{ 

if  (fgetsCine,  MAXLINE,  infile  ne)  =  NULL)  { 
printffAn  REACHED  END  of” FILE!**); 
exit{1); 

> 

•Cine  +  14)  =  ACT; 

> 

r  now  read  in  data  */ 
fgetsCine,  MAXLINE,  infilejie); 
fgetsCine,  MAXLJNE.  infile_ne); 
i  =  0; 

Ez_max  =  0.0; 

E_max  =  0.0; 

while  ((fscanfOnfiie_ne,"%f  %f  %f  %f  %f  %f  %r, 

&a,&b,&c,&d,&e,&o,&p))  =  7)  { 
if  (o  >  Ez_max)  Ez_max  =  o; 
if  (p  >  E_max)  E_max  =  p; 
i++; 

} 

numnepts  =  i; 

minval(plttype-1]  =  0; 

if  (plttype  =  13)  maxval[12]  =  Ez_max; 

if  (plttype  ==  14)  maxval[13]  =  E_maxr 

r  set  aside  memory  V 

ne__val  =  (float  ••)XtCa!loc(2,sizeof(float  *)); 

for  (i=0;  i<2;  ++i) 

{ 

ne_val[i]  =  (float  *)XtCalloc(numnepts,sizeof(float)); 

} 

ne_points  =  (XgPomt  ^XtCallcxfnumnepts.sizeofpCgPoint)); 

rewind(infile_ne); 
r  first  look  for  frequency  V 
sprintfCookfori."  FREQUENCY  =%10.3T,selfreq); 
fgetsCine,  MAXLINE.  infile_ne); 

•Cine  +  22)  =  AO, 
while(strcmp(lookfoii,line)  !=  0) 

{ 

if  (fgetsCine.  MAXLINE.  infile_ne)  =  NULL)  { 
pnntffAn  REACHED  END  of  FILE!"); 
exit(1); 

} 

•Cine  ♦  22)  =  ACT; 

} 

/*  now  look  for  source  */ 
sprintfCookfor2  "  SOURCE  :%5d“,source); 
fgetsCine,  MAXLINE,  infile_ne); 

•Cine  +  1 4)  =  AO; 
while(strcmp(lookfor2,line)  !=  0) 

{ 

if  (fgetsCine,  MAXLINE,  infile  ne)  ==  NULL)  { 
printffAn  REACHED  END  of  FILE!**); 
exit(1); 

} 

•(line  +  14)  =  A0*; 

} 

/*  now  read  in  data  V 
fgetsCine,  MAXLINE,  infi!e_ne); 
fgets(line,  MAXLINE,  infile_ne); 
for  C=0;  i<numnepts;  i++)  { 
fscanf(infile_ne,"%f  %f  %f  %f  %f  %f  %r, 
&a,&b,&c,&d,&e,&o,&p); 
if  (plttype  =  13)  ne_va![0][i]  =  o/Ez_max  *  7.0; 
if  (plttype  =  14)  ne_val[1][i]  =  p/E_max  *  7.0; 
ne_points(i].x  =  (-b+ycen)*mscale; 
ne_points[t].y  =  (-a+xcen)*mscale; 
ne_points[i].z  =  c*mscale; 

r 

SPH  setMarkerSizeScaleFactor  (val/7.0); 
if  (vaT<  1.0)  SPH_setMarkerColor(  blue ); 
else  if  (val  <  2.0)  SPH_setMarkerColor(  cyan ); 
else  if  (val  <  3.0)  SPH_setMarkerColor(  green ); 
else  if  (val  <  4.0)  SPH_setMarkerColor(  yellow ); 
else  if  (val  <  5.0)  SPH  setMarkerColor(  orange ); 
else  if  (val  <  6.0)  SPH_setMarkerColor(  red ); 
else  SPH_setMarkerColor  ( white ); 
tempvpCj  =  (a-xcen)*mscale; 
tempv(Y)  =  (c-zcen)*mscale; 
tempvjz]  -  {-b+ycen)*mscale; 

SPH_polyMarker(  1,  &tempv); 


> 

fdos«(infile  ne); 

} 

r  put  in  near  magnetic  fields  if  necessary  */ 
if  ((ptttype  =  15)!|(plttype  =  16))  { 
if  ((infile_nh  =  fopen(in_file_nh,"0)  =  (FILE*)0)  { 
printffVAtYt  File  %*  could  not  be  opened.  \n",in  file  nh); 
exrt(1); 

} 

r  first  look  for  frequency  V 

sprintf(lookfo(i  "  FREQUENCY  =%10.3T,selfreq); 

fgetsOine,  MAXLINE,  infile  nh); 

•(line  +  22)  =  10'; 
while(strcmp(Iookfor1,!ine)  1=  0) 

{ 

if  (fgets(line,  MAXLINE,  infile  nh)  =  NULL)  { 
printf(1n  REACHED  END  of  FILE!"); 
exit(l): 

> 

•(line  +  22)  =  10*; 

} 

r  now  look  for  source  */ 
sprintf(lookfor2,"  SOURCE  :%5d", source); 
fgetsOine,  MAXUNE,  infile_nh); 

•(line  +  1 4)  =  10*; 
while(strcmp(lookfor2,line)  1=  0) 

{ 

if  (fgets(line,  MAXLINE,  infile  nh)  =  NULL)  < 
printtfln  REACHED  END  of  FILE?"); 
exrt(1); 

} 

•(line  +  14)  =  KT; 

> 

r  now  read  in  data  */ 
fgets(line,  MAXUNE,  infile_nh); 
fgetsOine,  MAXUNE,  infile  nh); 
i  =  0; 

Hx_max  =  0.0; 

Hy_max  =  0.0; 

while  ((fscanf(infile_nh,"%f  %f  %f  %f  %f  %f  %r, 

&a,&b1&c,&d.&e,&o,&p))  ==  7)  { 
if  (d  >  Hx_max)  Hx_max  =  d; 
if  (e  >  Hy_max)  Hy_max  =  e; 
i++; 

} 

numnhpts  -  i; 

minval[plttype-1]  =  0; 

if  (plttype  “15)  maxvalfl  4]  =  Hx_max; 

if  (ptttype  =  16)  maxval[15]  =  Hy_max; 

/*  set  aside  memory  */ 

nh__val  =  (float  **)XtCalloc(2,sizeof(float  *)); 

for  (i=0;  i<2;  ++i) 

{ 

nh_val(i]  =  (float  *)XtCalloc(numnhpts,sizeof(float)); 

> 

nh_points  =  (XgPoint  •)XtCalloc(numnhpts,sizeof(XgPoint)); 

rewind(infile_nh); 
r  first  look  for  frequency  •/ 
sprintfOookforl,"  FREQUENCY  =%10.3f\selfreq); 
fgetsOine,  MAXLINE,  infile  nh); 

•Oine  +  22)  =  10*; 
while(strcmp0ookfor1  ,line)  1=  0) 

{ 

if  (fgets(line,  MAXLINE,  infile_nh)  =  NULL)  { 
printffln  REACHED  END  of  FILE!"); 
exit(1); 

> 

•Oine  +  22)  =  10*; 

> 

r  now  look  for  source  V 
sprintf0ookfor2,"  SOURCE  ;%5d“,  source); 
fgets(line,  MAXLINE,  infile  nh); 

•Oine  ♦  14)  =  10*; 
while(strcmp0ookfor2,line)  1=  0) 

{ 

if  (fgetsOine,  MAXLINE,  infile_nh)  =  NULL)  { 
printffln  REACHED  END  of  FILE!"); 
exit(1); 

> 

•(line  +  14)  =  10*; 

> 

r  now  read  in  data  */ 
fgetsOine,  MAXLINE,  infile_nh); 
fgetsOine,  MAXLINE,  infile_nh); 
for  0=0;  i<numnhpts; »++)  { 
fscanf(infHe_nh,"%f  %f  %f  %f  %t  %f  %r, 
&a,&b,&c,&d,&e,&o,&p); 
if  (plttype  =  15)  nh_val[0j(i]  =  d/Hx_max  *  7.0 ; 
if  (plttype  ==  16)  nh_val[1][i]  =  e/Hy_max  *  7.0; 
nhj>oints[i].x  =  (-b+ycen)*mscale; 


nh_points[i].y  =  (-a+xcen)*mscale; 
nh_pointsp].z  -  c*mscale; 

r 

SPH_setMarkerSizeScaleFactor  (val77.0); 
if  (val  <  1.0)  SPH_setMarkerColor(  blue ); 
else  if  (val  <  2.0)  SPH_setMarkerColor(  cyan ); 
else  if  (val  <  3.0)  SPH~setMarkerColor(  green ); 
else  if  (val  <  4.0)  SPH_$etMarkerColor(  yellow ); 
else  if  (val  <  5.0)  SPH_setMartcerColor(  orange ); 
else  if  (val  <  6.0)  SPH~setMarkerColor(  red ); 
else  SPH_setMarkerCoior  ( white ); 
tempvfX]  =  (a-xcen)*mscale; 
tempv(Y]  =  (c-zcen)*mscale; 
tempvfZ]  =  (-tH-ycen)’mscale; 

SPH _polyMarker(  1 ,  Atempv); 

V 

> 

fdose(infilo_nh); 

> 

r  now  go  read  pattern  data,  if  necessary  V 
if  (pfttype  >=  17)  { 

tf  ((infile _ pt  =  fopen(in_file _pt,"0)  ==  (FILE*)0)  { 

printf("\nVt\t  File  %s  could  not  be  opened.  \n",in_file_pt); 
exit(1); 

} 

maxthetas  =  0; 
maxphis  =  0; 
tdbmax  = -1000.0; 
pdbmax  =  -1000.0; 
ethmax  =  0.0; 
ephmax  =  0.0; 

P  set  up  maximum  ranges  for  theta  and  phi  */ 

1*  first  look  for  frequency  7 

sprintfOookforl,"  FREQUENCY  =%10.3f\se!freq); 

fgets(line,  MAXLINE,  infile_pt); 

•(line  +  22)  =  *\0*; 
while(strcmp(lookfor1  .line)  1=  0) 

{ 

if  (fgetsfline,  MAXLINE.  infile_pt)  ==  NULL)  { 
printfOn  REACHED  END  of  FILE?-); 
exit(1); 

} 

•(line  +  22)  =  *\0*; 

> 

/*  now  look  for  source  V 
sprintf(Iookfor2,”  SOURCE  :%5d". source); 
fgetsOine,  MAXLINE,  infile_pt); 

•{line  +  14)  =  *\0*; 
while(strcmp(lookfor2,line)  1=  0) 

{ 

if  {fgetsfline,  MAXLINE,  infile_pt)  =  NULL)  { 
printfOn  REACHED  END  of  FILE!**); 
exit{1); 

} 

•{line  +  14)  =  *\0*; 

> 

r  dump  next  two  lines  7 
fgetsfline,  MAXLINE,  infile_pt); 
fgetsfline, MAXLINE, infile _pt); 
iphis=  1; 
ithetas  =  1; 
i=1; 

fscanf(infile_pt,  "%f  %f  %f  %f  %f  %f  %f  %r,  &theta.  &phi,  &tdb. 

&pdb,  &ethmag,  Sethph,  &ephmag,  &ephph); 
oldtheta  =  theta; 
oldphi  =  phi; 

if  (tdb  >  tdbmax)  tdbmax  =  tdb; 

if  (pdb  >  pdbmax)  pdbmax  =  pdb; 

if  (ethmag  >  ethmax)  ethmax  =  ethmag; 

if  (ephmag  >  ephmax)  ephmax  =  ephmag; 

while  ({fscanf(infite_pt,"%f  %f  %f  %f  %f\&theta,  &phi,  &tdb, 

&pdb,  &ethmag,  &ethph,  &ephmag,  &ephph))  ==  8)  { 

if  (theta  >  oldtheta) 

{ 

Hhetas++; 
oldtheta  =  theta; 

> 

if  (phi  >  oldphi) 

{ 

iphis++; 
oldphi  =  phi; 

> 

if  (tdb  >  tdbmax)  tdbmax  =  tdb; 
if  (pdb  >  pdbmax)  pdbmax  =  pdb; 
if  (ethmag  >  ethmax)  ethmax  =  ethmag; 
if  (ephmag  >  ephmax)  ephmax  -  ephmag; 


} 

ipts  =  i; 

if  (ithetas  >  maxthetas)  maxthetas  =  ithetas; 
if  (iphis  >  maxphis)  maxphis  =  iphis; 
printff  maxthetas:  %d  \n**, maxthetas); 
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printff  maxphis:  %d  \n“,maxphis); 
printff  ethmax:  %f\n“,  ethmax); 
printff  ephmax:  %f  \n“,ephmax); 

/•  set  aside  memory  7 

tdbdata  =  (float  — )XtCalloc(maxphis,  sizecf(float  ")); 
pdbdata  =  (float  ***)XtCalloc(maxphis,  sizeof(float  **)); 
ethdata  =  (float  *** )XtCalloc(maxphis,  sizeof(float  **)); 
ephdata  =  (float  *~)XtCaltoc(maxph«1  *izeof(float  *•)); 
ethphase  =  (float  **}XtCalloc(maxphis,  sizeof(float  *)); 
ephphase  =  (float  •*)XtCalk>c(maxphis,  sizeof(float  •)); 
for  0=0;  i<maxphis;  ++i) 

{ 

tdbdata  p]  =  (float  *")XtCalloc(maxthetas,  sizeofffloat  *)); 
pdbdatap]  =  (float  **)XtCalloc(maxth©tas,  sizeof(float  *)); 
ethdata  [I]  =  (float  #*)XtCalloc(maxthetas,  sizeof(float  *)); 
ephdata  0]  =  (float  **)XtCalloc(maxthetas,  si2eof(float ")); 
ethphase  [i]  =  (float  ^XtCalloc(maxthetas,  siz  ©of  (float)); 
ephphase  p]  =  (float  *)XtCailoc(maxthetast  sizeof(float)); 
for  0=0;  j<maxthetas;  ++j) 

{ 

tdbdata  [I]  Q]  =  (float  *)XtCalloc(3,  sizeof(float)); 
pdbdata [i]D3  =  (float  *)XtCalIoc(3,  sizeof(float)}; 
ethdataplDl  =  (float  *)XtCalloc(3,  sizeof(float)}; 
ephdata [i]Q  =  (float  *)XtCalloc(3,  sizeof(fioat)); 

> 

} 

/*  rewind  file  7 

rewind  (infile_pt); 

r  now  go  read  data  7 

r  first  look  for  frequency  7 

sprintf(lookfor1 FREQUENCY  =%10.3r,selfreq); 

fgets(line,  MAXLINE,  infile _pt); 

•(line  +  22)  =  ■\0‘; 
while(strcmp(lookfoii  .line)  !=  0) 

{ 

if  (fgetsfline,  MAXLINE,  infile_pt)  ==  NULL)  { 
printff\n  REACHED  END  of  FILE!”); 
exrt(1 ) ; 

> 

•(line  +  22)  =  AO"; 

) 

r  now  look  for  source  7 
sprintf(lookfor2,"  SOURCE  :%5<r, source); 
fgets(line,  MAXLINE,  infile_pt); 

•(line  +  14)  =  W; 
while(strcmp(lookfor2,iine)  1=  0) 

{ 

if  (fgets(line,  MAXLINE,  infile_pt)  ==  NULL)  { 
printff\n  REACHED  END  of  FILE!"); 
ewt(1 ); 

> 

•(line  +  14)  =  73*; 

> 

r  dump  next  two  lines  7 
fgefcs(line, MAXLINE, infiie_pt); 
fgets(linetMAXLINE,infile_pt); 
iphis  =  0; 
ithetas  =  0; 

fscanf(infile_pt,  “%f  %f  %f  %f  %f  %f  %f  %r,  &theta,  &phi,  Stdb, 

&pdb,  &ethmag,  &ethph,  &ephmag,  &ephph); 
oldtheta  =  theta; 
oldphi  =  phi; 

tdb  =  45.0  -  (tdbmax  -  tdb); 
pdb  =  45.0  -  (pdbmax  -  pdb); 
if  (tdb  <  0.0)  tdb  =  1.0; 
if  (pdb  <  0.0)  pdb  =  1 .0; 

if  (ethmag  <=  0.01  *  ethmax)  ethmag  =  0.01  *  ethmax; 
if  (ephmag  <=  0.01  *  ephmax)  ephmag  =  0.01  *  ephmax; 
tdbdata  [iphis][ithetas][0]  =2.0*tdb*cos(cdr*phi)*sm(cdr*theta)/45.0; 
tdbdata[iphisj[ithetasj[lj  =2.0*tdb*sin(cdr*phi)*sin(cdr*theta)/45.0; 
tdbdata[iphis]pthetasj[2]  =2.0*tdb*cos(cdr“theta)/45.0; 
pdbdata  [iphis}(ithetas][0)  =2.0*pdb*cos(cdr*phi)*sin(cdr*theta)/45.0; 
pdbdata[iphisj[ithetasj[lj  =2.0*pdb*sin(cdr*phi)*sin(cdr*theta)/45.0; 
pdbdata  [iphis][ithetas][2]  =2.0*pdb*cos(cdrtheta)/45.0; 
ethdata[iphis)[ithetas]IOJ  =2.0*ethmag*cos(cdr*phi)*sin(cdr*theta)/ethmax; 
ethdata[iphisj[ithetas]ilj  =2.0*ethmag*sin(cdr*phi)*sin(cdr7heta)/ethmax; 
ethdata[iphis][ithetas][2]  =2.0*ethrnag*cos(cdr*theta)/ethmax; 
ephdata[iphis](ithetas][0]  =2.0*ephmag*cos(cdr*phi)*sin(cdr*theta)/ephmax; 
ephdata  [iphis]ftthetas][1]  =2.0*ephmag,sin(cdr*phO*sin(cdr7heta)/ephmax; 
ephdata[iphis][ithetas][2]  =2.0*ephmag*cos(cdr*theta)/ephmax; 

/•  put  phase  between  0  and  360  7 
while  (ethph  <  0.0)  ethph  =  ethph  +  360; 
while  (ethph  >  360.0)  ethph  =  ethph  -  360; 
ethphase[iphis]fithetas]  =  ethph; 
while  (ephph  <  0.0)  ephph  =  ephph  +  360; 
while  (ephph  >  360.0)  ephph  =  ephph  -  360; 

©phphasepphisjpthetas]  =  ephph; 
for  (1=1;  i  <  ipts;  i++) 

{ 

fscanf(infile_j>t  "%f  %f  %f  %f  %f  %f  %f  %f\  &theta,  &phi,  &tdb, 

&pdb,  Sethmag,  &ethph,  &ephmag,  &ephph); 
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if  (theta  >  oldtheta)  ithetas++; 
if  (phi'>  oldphi)  iphis-M-; 
if  (theta  <  oldtheta)  ithetas  =  0; 
if  (phi  <  oldphi)  iphis  =  0; 
tdb  =  45.0  -  (tdbmax  -  tdb); 
pdb  =  45.0  -  (pdbmax  •  pdb); 
if  (tdb  <  0.0)  tdb  =  1.0; 
if  (pdb  <  0.0)  pdb  =  1.0; 

if  (ethmag  <=  0.01  *  ethmax)  ethmag  =  0.01  *  ethmax; 

if  (ephmag  <=  0.01  *  ephmax)  ephmag  =  0.01  *  ephmax; 

tdbdata[iphis][ithetas][0]  =20'tdb*cos(cdr*phi)*sin(cdr#theta)/45.0; 

tdbdata[iphis]pthetas][1]  =20*tdb*sin(cdr*phi)*sin(cdr*theta)/45.0; 

tdbdata[iphis][ithetasp)  =20ndb*cos(cdrtheta)/45.0; 

pdbdata[iphis][ithetas][0]  =20*pdb*cos(cdr*phi)*sin(cdr*theta)/45.0; 

pdbdata[iphis][ithetas][1]  =20*pdb*sin(cdr*phi)*sin(cdr*theta)/45.0; 

pdbdata[iphis][rthetas][2]  =20*pdb*cos(cdr*theta)/45.0; 

ethdata[iphis]fithetas][0]  =2.0*ethmag,cos(cdr*phi)*sin(cdr4theta)/ethmax; 

ethdata[i  p  h  is]  [ith  etas  j[  1  j  =20*ethmag*sin(cdr*phi)*sin(cdr*theta)/ethmax; 

ethdata(iphis][ithetas](2)  =20*  ethmag  *cos(cdnheta)/ethmax; 

ephdata[iphisj[ithetas][0]=20*ephmag,cos(cdr*phi)*sin(cdr*theta)/ephmax; 

ephdata[iphisjfithetas][l]  =2.0*ephmag*sin(cd^phi)*sin(cdr*theta)/ephmax; 

ephdata[iphis][ithetas][2]  =20*ephmag*cos(cdr*theta)/ephmax; 

while  (ethph  <  0.0)  ethph  =  ethph  +  360; 

while  (ethph  >  360.0)  ethph  =  ethph  -  360; 

ethphasefiphis][ithetas]  =  ethph; 

while  (ephph  <  0.0)  ephph  =  ephph  +  360; 

while  (ephph  >  360.0)  ephph  =  ephph  -  360; 

ephphasepphisjfithetas]  =  ephph; 

oldtheta  =  theta; 

oldphi  =  phi; 

> 

fclose(infiIe_pt); 
axes[0].x  =  0.0; 
axe$[0].y  =  0.0; 
axes{0].2  =  0.0; 
axes{lj.x  =  0.0; 
axesflj.y  =  -25; 
axes[lj.z  =  0.0; 
axes[2].x  =  -25; 
axes[2].y  =  0.0; 
axes[2].z  =  25; 
axes  [3], x  =  0.0; 
axes[3].y=  0.0; 
axes[3].z  =  2.5; 

> 


static  void  DfawCallback(Widget  widget,  XtPointer  call_data, 

XmDrawingAreaCalibackStruct  *cbs) 

{ 

XEvent  'event  =  cbs->  event; 

XgPoint  wpoirrt; 

XgPoint  segpoint(2); 

XgNcPoint  point; 

Xg  Boolean  hit; 

int  segment  pick  Jd; 

XgOrient  orient 
XgZoom  zoom; 

XgExtents  extents; 

Dimension  width.height 
DrawData  MrawData; 
int  plttype; 
int  wireNumber; 
int  wind; 

char  string  [3000]; 

char  line  [100]; 
unsigned  long  werror; 
static  Widget  text 
Widget  form; 

Arg  args  [10]; 
int  n; 

XmString  xmstring; 
extern  Widget  topLevel; 

Widget  pane; 
void  editWireButtonCBO; 
void  editNodeButtonCBO; 
void  close  Button  CBO; 
static  ActonArealtem  actionitemsQ  =  { 
fEdit  Wire"  editWireButtonCB,  NULL), 
fEdit  Nodel",  editNodeButlonCB,  (XtPointer)  1), 
fEdit  Noder,  editNodeButtonCB,  (XtPointer)?}, 
fCtose**,  closeButtonCB,  NULL} 

}; 

extern  void  newEscapeActionQ; 

XtVaGetValues  (widget  XmNuserData,  SdrawData.  NULL); 
XgSetCurrentDevice  (drawOata->xgd); 

XglnquireOrthographicView(&6rient&zoom,&extents); 
XtVaSetValues(drawData->az_scale,  XmNvalue.OntJorientaz,  NULL); 
XtVaSetValues(drawData->el_scale,  XmNvaluet{int)orientel,  NULL); 
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XtVaSetValues(drawOata->x_scale,  XmNvalue,(int)(20om.xcentarTOO),  NULL); 
XtVaSetValues(drawData->y_scale,  XmNvalue.OntJfcoom.ycenterTOO),  NULL); 
XtVaSetValues(drawOata->2oom_scale,  XmNvaiue,(inQ(zoom.scale*100),  NULL); 

switch(event->type)  { 
case  ButtonPress: 

r  this  section  will  be  modified  to  bring  up  wire/node  edit  window  */ 
pfttype  -  drawOata->type; 

XtVaGetValues(widget,XmNwidth,&width.XmNheight&heightNULL); 

height-; 

width-; 

point x  =  (float)event*>xbutton.x  /  (float) width; 

pointy  =  (float)(height  -  event-»xbutton.y)  /  (floatjheight; 

XgConvertNcToWc(&point,&wpoint); 

XgOeieteSegment(500); 

XgRedrawAUSegmentsO; 

hit  =  XgLocateSegment{&point&»egmetrt,&pickJd); 

if  ((hit  ==  1)&& (segment  1=  0)&&(segment  !=  99fi)&&(segment  !=  998))  { 

T  put  a  marker  at  this  spot  */ 

XgOpenSeg  ment(50Q); 

XgSetPolymarkerSi2e(2. 0); 

XgSetPolymarkerColor(XG_WHmE); 

Xg  SetPolymarkerT  ype  (XG__STAR) ; 
segpoint(0].x  =  bgn  _points[pickJd].x; 
segpoint(oj.y  =  bgn_points[pickJd).y; 
segpoint(0j.2  =  bgn_points(pick_idJ.2; 
segpointfl  j.x  =  end_points[pick_id].x; 
segpointflj.y  =  end_points(piekJd].y; 
segpoint(li.2  =  end__points(pickJd].z; 

XgPolymarker(2,seg  point); 

XgCloseSegmentO; 

XgRedrawAUSegmentsO ; 

wireNumber  =  Jwirefpickjd]; 

sprintfOine,"* . — . ******** . \n"); 

strcpy(string.line); 

sprintfOine,"You  just  selected  SEGMENT  number  %d\n",pick_id+1); 
strcat(string,line); 
if  (wireNumber  <-  SWireCount)  { 
r  this  section  is  for  straight  wires  */ 
wind  -  wireNumber-1; 

sprintf(Jine,This  is  SEGMENT  number  %d  on  STRAIGHT  WIRE  number  %d\n", 
Jseg[pick_id],wireNumber); 
strcat(string,line); 

sprintf(line,"  End  #1  of  this  wire  is  NOOE  %d  (%f,%f,%f).\n'\ 

GW_END1  [wlnd].X[GW_END1  (wlnd]-1], 

Y[G  W_END1  [w!nd]-1  ],Z[GW_END1  [windj-l  D; 
strcat(stringjine); 

sprintf(line,"  End  #2  of  this  wire  is  NOOE  %d  (%f,%f,%f).\n“, 
GW_END2[wlnd)1X{GW  END2[wind]-1], 
Y[GW_END2(wind]-1],Z(GW_END2[wlnd]-1D; 
strcat(string.line); 

sprintf(line,“  Wire  RADIUS  is  %f  meters.\n".GW_RAD[wlndD; 
strcat(string,Iine); 

sprintf(line,"  Number  of  SEGMENTS  is  %d.\n",GW_NS[wlnd]); 
strcat(string,line); 

> 

eise{ 

wind  =  wireNumber-SWireCounM; 

sprintfOine.This  is  SEGMENT  number  %d  on  TAPERED  WIRE  number  %d\n", 
Jseg[pick_id],wireNumber-SWireCount); 
strcat(string,line); 

sprintf(!ine,"  End  #t  of  this  wire  is  NODE  %d  (%f,%f,%f).\n*\ 

GC_END1  [windl,XlGC_END1  [wtnd]-1], 

Y(G"C_END1  [Wlnd].1  ].2[GC_END1  (w!nd]-1  D; 
strcat(string.line); 

sprintfOine,"  End  #2  of  this  wire  is  NODE  %d  (%f,%fT%f).\nM, 
GC_END2(wind],X(GC  END2(wlnd]-1]. 
Y[GC_END2[wlnd]-1].Z[GC_END2[wlnd]-1]); 
strcat(string.line); 

sprintfOine."  BEGINNING  wire  RADIUS  is  %f  meters.\n".GC_RAD1[wfndD; 
strcat(string.line); 

sprintf(Iine,,‘  ENDING  wire  RADIUS  is  %f  meters.\n",GC_RAD2[w1nd]); 
strcat(string.line); 

sprintf(tine Number  of  SEGMENTS  is  %d.\n",GC_NS[w1nd)); 
strcat(string.line); 

} 

if  (pfttype  «  0)  { 

r  decode  errors  and  warnings  for  diagnostics*/ 

sprintfOine, "Results  of  DIAGNOSTICS  for  this  wire  are:  \n"); 
strcat(string.line); 

werror  =  wireEnors(wireNumber-1J; 
if  (werror  ==  0)  { 

sprintfOine."  No  ERRORS  or  WARNINGSIVi"); 
strcat(string,line); 

}  else  { 

if  ((werror  &  SegLen2WaveLenWaming)  ==  SegLen2WaveLenWaming)  { 
sprintfOine,"  Segment  Length  To  Wavelength  WARNING!  \n“); 
strcat(string.line); ) 

if  ((werror  &  SegLen2RadiusWaming)  ==  SegLen2RadiusWaming)  { 
sprintfOine,"  Segment  Length  To  Radius  WARNING!  \n“); 
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strcat(string.line); } 

if  ((werror  &  Radius2WaveLenWaming)  ==  Radius2WaveLen  Warning)  { 
sprintf(line,"  Radius  To  Wavelength  WARNING!  \n"); 
strcat(string,line);  > 

if  ((werror  &  JunctionSegLenRatioWaming)  ==  JunctionSegLenRatioWaming)  { 
sprintffline,"  Junction  Segment  Length  Ratio  WARNING!  \n"); 
strcat(string,!ine);  > 

if  ((werror  &  JunctionRadiusRatioWaming)  =  JunctionRadiusRatioWaming)  { 
sprintf(line,"  Junction  Radius  Ratio  WARNING!  VO; 
strcat(stnng,line); } 

if  ((werror  &  SegLen2WaveLenError)  ==  SegLen2WaveLenError)  { 
sprintf(line,"  Segment  Length  To  Wavelength  ERROR!  VO; 
strcat(string,line); ) 

if  ((werror  &  SegLen2RadiusError)  ==  SegLen2RadiusError)  { 
sprintf(tine,"  Segment  Length  To  Radius  ERROR!  \n"); 
strcat(stnngjine); } 

if  ((werror  &  Radius2WaveLenError)  =  Radius2WaveLen Error)  { 
sprmtf(line,"  Radius  To  Wavelength  ERROR!  \n“); 
strcat(stnng,line); ) 

if  ((werror  &  CoinddentWireError)  =  CoincidentWireEnor)  { 
spnntffline,"  Coindndent  Wire  ERROR!  \n"): 
strcat(string,line);  > 

‘  if  ((werror  &  JunctionSegLenRatioEiTor)  =  JunctionSegLenRatioError)  { 
sprintf(line,"  Junction  Segment  Length  Ratio  ERROR!  \n“); 
strcat(string,line);  > 

if  ((werror  &  JunctionRadiusRatioError)  ==  JunctionRadiusRatioError)  { 
sprintffline,"  Junction  Radius  Ratio  ERROR!  VO; 
strcat(string,line);  > 

if  ((werror  &  JunctionMatchPointError)  ==  JunctionMatchPointError)  { 
sprintf(line,“  Junction  Match  Point  ERROR!  VO: 
strcat(string,Iine);  > 

if  ((werror  &  CrossedWireErrar)  ==  CrossedWireError)  { 
sprintf(line,“  Crossed  Wire  ERROR!  VO; 
strcat(string,!ine);  > 

if  ((werror  &  InvalidSheathRadiusError)  ==  InvalidSheathRadiusError)  { 
sprintffline Invalid  Sheath  Radius  ERROR!  VO; 
strcat(string,line); } 

> 

> 

xm string  =  XmStringCreateLtoR  (string,  XmSTRING_DEFAULT_CHARSET); 

if  (popupShell  =  NULL)  { 
n  =  0; 

XtSetArg  (args  [nj,  XmNx,  50);  n++; 

XtSetArg  (args  [nj,  XmNy,  50);  n++; 

XtSetArg  (args  (nj,  XmN height  200);  n++; 

XtSetArg  (args  (nj,  XmNwidth,  600);  n++; 
popupShell  =  XtCreatePopupShell  C*Pick  Information", 
topLevelShellWidgetClass,  topLevel,  args,  n); 
newEscapeAction(popupShelt); 

XtSetArg  (args  (0),  XmNsashWidth,  1); 

XtSetArg  (args  [1],  XmNsashHeight  1); 

pane  =  XmCreatePanedWindow  (popupShell,  "pane",  args,  2); 

XtManageChild  (pane); 

form  =  XmCreateForm  (pane,  "form",  NULL,  0); 
n  =  0; 

XtSetArg  (args  [n],  XmNtopAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  (nj,  XmNleftAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [nj,  XmNleftOffset  5);  n++; 

XtSetArg  (args  [nj,  XmNrightAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args  [n],  XmNalignment  XmALlGNMENT_BEGINNING);  n++; 

XtSetArg  (args  [nj,  XmNlabelStrmg,  xmstring);  n++; 
text  =  XmCreateLabel(pane,  "label",  args,  n); 

XtManageChild  (text) ; 

XtManageChild  (form); 

action !tems[3]. data  =  (XtPointer)  popupShell; 

createActionArea  (pane,  actionltems,  4); 


XtManageChild(popupShell); 

>else{ 

XtSetArg  (args  [0],  XmNlabelStnng,  xmstring); 
XtSetValues  (text  args,  1); 

> 

XmStnngFree  (xmstring); 

XtPopup  (popupShell,  XtGrabNone);  r  Popup  the  window  V 
wirelndex  =  wireNumber, 

} 

else  { 

if  (popupShell) 

XtPopdown  (popupShell); 
popupShell  =  NULL; 

} 

break; 

} 

(void)  widget 
(void)call  data; 

> 


static  void  PushCallback(Widget  widget  int  tag, 

XmAnyCallbackStruct  ‘reason) 
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XgDevice  p*_xgd; 

DrawOata  'drawOata; 
int  ptttype; 

static  XgVisible  visible  =  XG_V1S1BLE; 

XtVaGetValues  (XtParent  (widget),  XmNuserOata,  &drawOata,  NULL); 
XgSetCurrentDevice  (drawOata->xgd); 
ptttype  =  drawData->type; 

switch(tag)  { 

case  0:  /*  Togg  te  Axes  */ 

visible  =  (visible  ”  XGJ/ISIBLE)  ?  XGJNVISIBLE :  XG_VISIBLE; 
XgSetSegmentVisibiiity(999,  visible); 

XgRedrawAIISegmentsO; 

break; 

easel:  /*  Reset*/ 

Reset  (drawOata}; 
break; 

case  Z{  r  Print  V 

char  command{80).  tmpfile[40]; 

tmpnam  (tmpfile); 

ps_xgd  =  XgOpenPostscript  (tmpfile,  XG_PORTRAIT); 

Xg  AssociateDevice(ps_xgd  ,drawOata-»xgd,True) ; 

XgCloseOevice  (ps_xgdj; 

XgSetCurrentDevice(drawData->xgd); 

sprintf  (command,  -%s  %$M,  getenv  fMOM_PRINT_GRAPHlCS“),  tmpfile); 
system  (command); 
remove  (tmpfile); 
break; 

> 

case  3:  f*  quit  '/ 

XtDestroyWidget  (XtParent  (XtParent  (XtParent  (widget)))); 
break; 
default 

printfOag=%d*\tag); 

(void)  widget; 

(void)reason; 

break; 

> 


static  void  PushCallback2  (Widget  widget  int  tag, 

XmAnyCallbackStruct  'reason) 

XgOrient  orient; 

XgZoom  zoom; 

Xg  Extents  extents; 

DrawOata  'drawOata; 

r  Get  Xgraphics  device  from  widget  parent  &  make  it  current  */ 

XtVaGetValues  (XtParent  (XtParent  (widget)),  XmNuserOata,  &drawData,  NULL); 

XgSetCurrentDevice  (drawData->xgd); 

XglnquireOrthographicView(&orient&zoom,&extents); 

switch(tag)  { 

case  0:  f*  Plan  */ 

orientaz  =  0; 
orientel  =  0; 
break; 

case  1 :  f*  Elevation '/ 

orientaz  =  0; 
orientel  =  90; 
break; 

case  2:  /*  Bow  V 

orientaz  =  90; 
orientel  =  0; 
break; 

default 

printf(Mtag=%d“,tag); 

(void)  widget 
(void)  reason; 
break; 

> 

zoom.xcenter  =  0.5; 

zoom.ycenter  =  0.5; 

zoom.scale  =  1.0; 

XgSetOrthographicViewf&orient&zoom.&extents); 

XtVaSetVaIues(drawData->az_scale,  XmNvalue,fint)orientaz,  NULL); 

XtVaSetValues(drawData->el_scale,  XmNvalue,(int)orientel,  NULL); 

XtVaSetValues(drawOata->x_scaie,  XmNvaluel(int)(zoom.xcenter'100)1  NULL); 

XtVaSetValues(drawOata->y_scale,  XmNva!ue,(int)(zoom.ycenter*100),  NULL); 

XtVaSetValues(drawOata->zoom_scale,  XmNvalue,Cint)(zoom.scale'100),  NULL); 
(void)widget 


static  void  ScaleCallback(Widget  widget  int  tag, 
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XmScaleCallbackStruct  *cbs) 


{ 

XgOrient  orient 
XgZoom  zoom; 

XgExtents  extents; 

DrawData  *drawData; 

r  Get  Xgraphics  device  from  widget  parent  &  make  it  current  •/ 

XtVaGetValues  (XtParent  (widget),  XmNuserOata,  &drawOata,  NULL); 
XgSetCurrentDevice  (drawData->xgd); 

XglnquireOrthographicV»ew(&orient&2oom,  Sextants); 

switch  (tag)  { 
caseO: 
r 

printf("az=%d\n",  cbs->  value); 

V 

orientaz  =  cbs->  value; 
break; 
case  1: 

r 

printffel=%cl\n",cbs-»va  lue) ; 

*/ 

orient  el  =  cbs*>  value; 
break; 
case  2; 

r 

printfOt=%d\n",cbs->value); 

V 

zoom.xcenter  =  (float)cbs->value  / 100.0; 
break; 
case  3; 

r 

printf  fy=%d\n**,cbs->  val  ue) ; 

*/ 

zoom.ycenter  =  (float)cbs-»value  / 100.0; 
break; 
case  4: 

r 

printffscale=%d\n“,cbs->  value); 

V 

zoom,  scale  =  (float)cbs->value  / 100.0; 
break; 

> 

XgSetOrthographicViewf&orient&zoom.&extents); 

(void)widget 

> 

r . . . / 

int  Reset  (OrawOata  *drawData) 

{ 

XgOrient  orient 
XgZoom  zoom; 

XgExtents  extents; 

XglnquireOrthographicView(&orient&zoom,&extents); 

orientaz  =  0; 

oriental  =  0; 

zoom.xcenter  =  0.5; 

zoom.ycenter  =  0.5; 

zoom,  scale  =  1.0; 

XgSetOrthographicView(&orient&zoom<&extent5); 
XtVaSetValues(drawData->az_scale,  XmNvalue,(int)orientaz,  NULL); 
XtVaSetValues(drawOata->el_scalet  XmNvalue,(int)orientel,  NULL); 
XtVaSetValues(drawData->x_scale,  XmNvalue,(int)(zoom.xcenter*100),  NULL); 
XtVaSetValues(drawOata->y_scale,  XmNvalue,(int)(zoom.ycenter*100),  NULL); 
XtVaSetValues(drawData->2oom_scaie,XmNvalue1(int)(zoom.scale*100),  NULL); 

return  0; 

> 


int  DrawNE(pfttype) 
int  pittype; 

{ 

inti; 

float  val; 

XgOpenSegment(998); 

XgSetSegmentDetectability(998tXG_DETECTABLE) ; 
for  (i=0;  i<numnepts;  i++)  { 

XgSetPickld(0; 

XgSetPolymarkerType(XG_POINT); 
if  (pittype  =  13)  val  =  ne_val[0][i]; 
if  (pittype  =  14)  val  =  ne  val[1][i]; 
if  (val  <  1.0)  XgSetPolymarkerCoIor(XG_MAGENTA); 
else  if  (val  <  2.0)  XgSetPolymarkerCoior(XG_BLUE); 
else  if  (val  <  3.0)  XgSetPolymarkerColor(XG_CYAN); 
else  if  (val  <  4.0)  XgSetPo»ymarkerColcr(XGj3REEN); 
else  if  (val  <  5.0)  XgSetPolymarkerColor(XG_YELLOW); 
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•Is*  if  (val  <  6.0)  XgSetPoJymarkerColor(XG_RED); 
else  XgSetPolymarkerColor(XG_WHrrE); 

XgPolymarker(1  ,&ne_points[i]}; 

) 

XgCtoseSegmentO; 
r  Free  up  memory  V 
for  0=0;  i<2;  ++0 
{ 

XtFree((char  *)  ne_va![i]); 

} 

XtFree((char  •)  nerval); 

XtFree((char  *)  ne_points); 
return  0; 

} 

. */ 

Int  DrawNH(pfttype) 
int  plttype; 

{ 

inti; 
float  val; 

XgOpenSegment(997) ; 

XgSetSegmentDetectability(997,XG_DETECTABLE); 
for  (i=0;  i<numnhpts;  i++)  { 

XgSetPickJd(i); 

XgSetPoiymarkerTypeP<G_POINT); 
if  (plttype  =  15)  val  =  nh_yal[0](i); 
if  (plttype  ==  16)  val  =  nh_val[tj[i]; 
if  (val  <  1.0)  XgSetPolymarkerColor(XG_MAGENTA); 
else  if  (val  <  2.0)  XgSetPolymarkerColor(XG_BLUE); 
else  if  (val  <  3.0)  XgSetPolymarkerColor(XG_CYAN); 
else  if  (val  <  4.0}  XgSetPolymaricerColor(XG_GREEN); 
else  if  (val  <  5.0)  XgSetPo!ymarkerCo!or(XG_YELLOW); 
else  if  (val  <  6.0)  XgSetPolymarkerColor(XG_RED); 
else  XgSetPolymarkerColor(XG_WHlTE); 

XgPolymarker(1  .&nh_points(i]); 

} 

XgCJoseSegmentO; 
r  Free  up  memory  7 
for  0=0;  i<2;  ++i) 

{ 

XtFree((char  *)  nh  val[i]); 

> 

XtFree((char  •)  nh_vaQ; 

XtFree((char  •)  nh_pomts); 
return  0; 


int  DrawGeo  (int  plttype) 

< 

int  i; 

XgPoint  points[2]. 

r  Draw  Axes  7 
XgOpenSegment(999); 

XgSetSegrnentDetectability(999,XG_DETECTABlE); 
XgSetPolylineColor(XG_RED); 
memcpy(&points(0] ,  &axes(0),  sizeof(Xg  Point)) ; 
memcpy(&points[lj,&axes[lj.sizeof(XgPoint)); 
XgPolyline(2, points); 

XgSetPolyiineColor(XG_GREEN); 

memcpy(&points[0J.&axes[0],sizeof(XgPoint)); 

memcpy(&points[1J,&axes[2J,sizeof(XgPoint)}; 

XgPolyl  ine(2,  points); 

XgSetPolyiineColor(XG_BLUE); 
memcpy(&points[0].&axes{0],si2eof(XgPoint)); 
me  mepy  (&poi  nts  [1  ] .  &axes(3] .  sizeof  (XgPoi  nt)) ; 
XgPolyline(2,  points); 

XgCloseSegmentO; 

XgOpenSegment(plttype+ 1 ); 

XgSetSegmentDetectabitity(plttype+1,XG_DETECTABLE); 
for  (i=0;  i<numsegs;  i++)  { 
memcpy(&points[0],&bgn_pomts[i],sizeof(XgPoint)); 
memcpy^&pointsilj.&end^pointspj.sizeoftXgPoint)); 
XgSetPickld(i); 
switch(ival(plttype][i])  { 
case  0:  XgSetPolylineColor(XG_MAGENTA); 
break; 

case  1:  XgSetPolylineCoior(XG_BlUE); 
break; 

case  2:  XgSetPoIylineColor(XG_CYAN); 
break; 

case  3:  XgSetPolylineCoior(XG_GREEN); 
break; 

case  4:  XgSetPoly1ineColor(XG_YElLOW); 
break; 

case  5:  XgSetPolylineColor(XG_RED); 
break; 

case  6:  XgSetPolylineColor(XG_WHfTE); 
break; 
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> 

XgPolytine(2,  points); 

> 

ColcrKey  (ptttype); 

XgCJoseSegmentO; 
r  Free  up  memory  */ 
for  (»=0:  i<17;  -M-i) 

{ 

XtFree((char  *)  ivaiQD; 

} 

XtFree((char  *)  ival); 

r 

XtFree((char  *)  bgn_points); 

Xtf  ree((char  *)  end_points); 

*/ 

return  0; 

> 

r . .............. . v 

int  DrawPat  (int  ptttype) 

{ 

int  ithetas,  iphis; 

int  i  j; 

XgPoint  points[2]; 

XgPoint  pt_verts[4]; 

r  Draw  Axes  V 
XgOpenSegment(999) ; 

XgSetSegmentDetectability(999,XG_DETECTABLE); 

XgSetPolylineColor(XG_RED); 

memcpy(&points{0],&axes[0],sizeof(XgPoint)); 

memcpy(&pointsil],&axes[lj,sizeof(XgPoint)); 

XgPolytine(2,  points); 

XgSetPolyiineColor(XG_GREEN); 

memcpy^&pointsIOJ.&axesfOj.sizeofpCgPoint)); 

memcpy(&pointsil],&axes[2],sizecf(XgPoint)); 

XgPoiyline{2,  points); 

XgSetPotyiineCok>r(XG_BLUE); 
memcpy(&points(0],  &axes[0] ,  sizeof  pCgPoint)); 
memcpyi&pointsilj.&axespj.sizeofpCgPoint)); 

XgPolyiine(2, points); 

XgCloseSegmentQ; 

XgOpenSegment(ptttype+1); 

XgSetSegmentDetectabilrty(pittype+1,XG_.DETECTABLE); 
for  (ithetas  -  0;  ithetas  <  maxthetas-1 ;  ithetas++)  { 
for  (iphis  =  0;  iphis  <  maxphis-1;  iphis++)  { 
XgSetPickJd(ithetas*maxphis+iphis); 
switch  (ptttype)  { 
case  17: 

pt_verts[0].x  =  -ethdata[iphis][rthetas][1  ]; 
pt_yerts[0].y  =  -«thdata[iphis][ithetas}{oj; 
pt_verts[0].z  =  ethdata[iphis][ithetas][2]; 
pt_verts[1  j.x  =  -«thdata{iphis}pthetas+1  j[1]; 
pt_verts[l].y  =  -ethdata(iphisj[ithetas+1][0]; 
pt_verts[lj.z  =  ethdatapphis]Dthetas+1][2]; 
if  (iphis  -=  maxphis-1)  { 
pt_verts[2].x  =  -ethdata[0]pthetas+1][1]; 
pt_verts[2].y  =  -ethdata[0][ithetas+1][0]; 
pt_verts[2].z  =  ethdata(0][ithetas+1][2]; 
pt_vertspj.x  =  -ethdata[0][rthetas)[1  ]; 
pt_verts(3j.y  =  -ethdata[0]rrthetas][0]; 
pt_verts[3].z  =  ethdata(0]frthetas][2]; 
phase  =  (ethphase[iphis][ithetas]+ 

ethphase{iphis]fithetas+13+ 

ethphase[0][rthetas]+ 

ethphase[0][ithetas+13)/4.0; 

}eise{ 

pt_verts[2].x  =  -ethdata[iphis+1][ithetas+1][1]; 
pt_verts(2].y  =  -«thdata[iphis+1][ithetas+lj[0); 
pt_verts[2).z  =  ethdata[iphis+1][ithetas+1][2]; 
pt_verts[3].x  =  -ethdata|jphis+1][ithetasj[1]; 
pt_verts[3j.y  =  -ethdata[iphis+1][ithetas)[0]; 
pt_vefts[3].z  =  ethdata[iphjs+1]frthetas][2]; 
phase  =  (ethphase[iphi$][ithetas]+ 

ethphase[iphrs][ithetas+1]+ 
ethphase[iphis+1]pthetas]+ 
ethphase{iphis+lj[ithetas+1  D/4.0; 

> 

break; 

case  18: 

pt_verts[0].x  =  -tdbdata(iphis)pthetas][1); 
pt_verts[0].y  =  -tdbdata(iphis](ithetas][0]; 
pt_verts[0].z  =  tdbdata[iphis](ithetas][2]; 
pt_vertsil].x  =  -tdbdata(iphis][ithetas+-1  ][1]; 
pt_verts[lj.y  =  -tdbdata[iphis]frthetas+1][0]; 
pt_yerts{lj.z  =  tdbdata[iphis][ithetas+1][2J; 
if  (iphis  ==  maxphis-1)  { 
pt_verts(2].x  =  -tdbdata[0]fithetas>  1  ][1  ]; 
pt_verts[2].y  =  -td  bdata(0]  [ithetas*  1][0]; 
pt_verts[2].z  =  tdbdata[0][ithetas+1][2]; 
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pt_verts[3].x  =  -tdbdata[0}[ithetas][1]; 
pt_verts[3j.y  =  -tdbdata(0]pthetas)[0]; 
pt_yerts(3].z  =  tdbdata[0]pthetas][2); 
phase  =  (ethphase[iphis]pthetas]+ 

ethphase[iphis][ithetas+1  ]+ 

ethphas«[0]tithetas]+ 

eth  phase  [0][ithetas+ ID/4.0; 

)©ts©{ 

pt_verts[2].x  =  -tdbdata[iphis+1][ithetas+1][1]; 
pt_verts(2].y  =  -tdbdata[iphrs+1]rithetas-H][0]; 
pt_vefts[2].z  =  tdbdata[iphis+1][ithetas+1][2]; 
pt_verts[3].x  =  -tdbdata[iphis+1  phetas](1]; 
pt_verts[3].y  =  -td  bdata  [i  p  his+ 1  ]  [ith  etasjfO] ; 
pt_verts[3].z  =  tdbdataFphis+1][ithetas](2]; 
phase  =  (ethphase[iphis]pthetas]+ 

ethphase[iphis][ithetas+1]+ 
ethphase(iphis-*-1]ftthetas]-*- 
ethphase(iphis+1  j[ithetas+ 1  D/4. 0; 

> 

break; 

case  19: 

pt_verts[0].x  =  -ephdata[iphis]pthetas]pi; 
pt_verts[0].y  -  -ephdata[iphis][ithetas][0]; 
pt_verts[0].z  =  ephdata[iphis]fithetas][2]; 
pt_verts[1].x  =  -ephdatapphisjfrthetas+1][1]; 
pt_verts[1].y  =  -ephdatapphis]ftthetas+1][oj; 
pt_verts[1].z  =  ephdatapphis][ithetas+1][2]; 
if  (iphis  ==  maxphis*1)  { 
pt_verts[2].x  =  -ephdata[0][ithetas+1][1); 
pt_yerts[2].y  =  -ephdata[0][ithetas+1][0]; 
pt_verts(2].z  =  ephdata[0][ithetas+1][2]; 
pt_vertspj.x  =  -ephdata[0]frthetas][1]; 
pt_verts[3].y  =  -ephdata(0]pthetas][0]; 
pt_verts[3].z  =  ephdata[0](ithetas][2]; 
phase  =  (ephphase[iphis]pthetas]+ 

eph  phasepph  is]fithetas+ 1  ]+ 
eph  phase  [0]fithetas]+ 
ephphase[0]pthetas+ ID/4.0; 

}else{ 

pt_verts{2].x  =  -ephdatapphis+l][ithetas+1][1]; 
pt_verts[2].y  =  -ephdatapphis+1  jpthetas+1][0j; 
pt_verts[2].z  =  ephdata[iphis+1][ithetas+1][2J; 
pt_yerts[3].x  =  -ephdatapphis+1  j[ithetas][1]; 
pt_verts[3].y  =  -ephdatapphis+1  jpthetas][0]; 
pt_verts[3].z  =  ephdata[iphis+1][ithetas][2]; 
phase  =  (ephphasefiphis][rthetasj+ 

ephphase[iphis][ithetas+1]+ 
ephphasepphis+1  ]frthetasj+ 
ephphase[iphfs+  1][i  thetas* 1  D/4. 0; 

) 

break; 

case  20: 

pt_verts[0].x  =  -pdbdata[iphis][ithetas][11; 
pt_verts[0].y  =  -pd  bdata  [iphis](ithetas][0]; 
pt_verts(0].z  =  pdbdata[iphis][ithetas][2]; 
pt_verts{lj.x  =  -pd  bdata  [iphis][ithetas+1][1]; 
pt_verts(lj.y  =  -pdbdatapphis)[ithetas+1][0J; 
pt_verts(1].z  =  pdbdata[iphis][ithetas+1][2]; 
if  (iphis  ==  maxphis-1)  { 
pt_verts[2].x  =  -pd  bdata  [0][ithetas+1j[1j; 
pt_verts[2].y  =  -pdbdata[0][rthetas+ 1  j  [0]; 
pt_verts(2].z  =  pdbdata(0](ithetas+1][2]; 
pt_verts[3].x  =  -pdbdata[0][ithetas][1]; 
pt_verts[3].y  =  -pdbdata(O)  [ithetas][0] ; 
pt_verts[3j.z  =  pdbdata[0][ithetas][2]; 
phase  =  (ephphase[iphis][ithetas]+ 

ephphase[iphis][ithetas+1]+ 
ephphase[0][ithetas]+ 
ephphase[0]frthetas+1  D/4.0; 

>  else  { 

pt_verts[2].x  =  -pd  bdata  [iphis+1][ithetas+1][1]; 
pt_verts[2].y  =  *pd  bdata  [iphis+1][ithetas+1][0]; 
pt__verts[2].z  =  pdbdatapphis+1][ithetas+1][2]; 
pt_verts[3].x  =  -pdbdata[iphis+1][ithetas][1]; 
pt_verts[3].y  =  -pd  bdata  [iphis+1]pthetas][0]; 
pt_yerts[3].z  =  pdbdata[iphis+1][ithetas][2]; 
phase  =  (ephphase[iphis)[ithetas]+ 

ephphase[iphis][ithetas+1]+ 
ephphase[iphis+1][ithetas]+ 
ephphase[iphis+lj[ithetas+1  D/4.0; 

> 

break; 


} 

P  now  put  the  phase  between  0  and  360  */ 

while  (phase  <  0.0)  phase  =  phase  +  360; 

while  (phase  >  360.0)  phase  =  phase  -  360; 

r  now  set  the  color  based  on  the  phase  V 

if  (phase  <  60.0)  XgSetFillArealnterio(Cdor(XG_MAGENTA); 

else  if  (phase  <  120.0)  XgSetFillArealnteriorColor(XG_BLUE); 

else  if  (phase  <180.0)  XgSetFillArealnteriorColorpCG_CYAN); 

else  if  (phase  <  240.0)  XgSetFillArealnterkKColor(XG_GREEN); 

else  if  (phase  <  300.0)  XgSetFillArealnteriorColor(XG_YEULOW); 

else  XgSetFillArealnteriorColor(XG_RED); 
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r  draw  the  polyhedron  7 
XgSetFillArealnteriorType(XG_FILLED); 
XgFillArea(4,  pt_verts); 

> 

> 

ColorKey  (plttype); 

XgCJoseSegmentO; 

T  Free  up  memory  */ 
for  (i=0;  }<maxphts;  ++i) 

{ 

for  G=0;  j<maxthetas;  +•+]) 

{ 

XtFree  ((char  •)  tdbdataRQD; 

XtFree  ((char  •)  pdbdataRGD; 

XtFree  ({char  •)  ethdata[ij[fl); 

XtFree  ((char  *)  ephdata[i]Qj); 

> 

XtFree  ((char  *)  tdbdata[i]); 

XtFree  ({char  *)  pdbdatap]); 

XtFree  ((char  *)  ethdatafi]); 

XtFree  ((char  *)  ephdata[i]); 

XtFree  ((char  *)  ethphase[ij); 

XtFree  ((char  *)  ephphasep]); 

> 

XtFree  {(char  *}  tdbdata); 

XtFree  ((char  *)  pdbdata); 

XtFree  {(char  *)  ethdata); 

XtFree  ((char  *)  ephdata); 

XtFree  ((char  *)  eth phase); 

XtFree  ((char  *)  ephphase); 


return  0; 

> 


r . . . 

int  ColorKey  (int  plttype) 

< 

char  keystring[20]; 
float  val[6]; 

float  range,  minv.maxv, 

XgSetCharacterHeight  (10,0); 

If  (plttype  ==  0)  { 

XgSetTextColor(XG_WHITE); 

XgWindowText(  -4.5.  1.0,  "WIRE  DIAGNOSTICS"); 
XgWindowText(  -3.0,  7.0.  “No  Problems*'); 

XgWindowText(  -2.0,  7  0.  "WARNING  MESSAGE**); 

XgWindowT ext(  -1.0,  7  0.  “ERROR  MESSAGE**); 
XgSetCharacterHeight  ( 5.0); 

XgSetTextCo  lor(X  G_WH  HE) ; 

XgWindowTextf  -5.0.  1.0,  "  - "); 

XgSetTextColor(XG_YELLOW); 

XgWindowText(  -3.0, 1.0,  “ - "); 

XgSetTextColor(XG_RED); 

XgWindowText( -1.0,  1.0,  “  - “); 

XgSetCharacterHeight  (10.0); 

> 

if  (plttype  ==  4)  { 

XgSetTextColor(XG_WHfTE); 

XgWindowText( -4.0, 1.0,  "WIRE  CONNECTIONS**); 
XgWindowText(  -3.0,  7.0,  "Both  end  connected**); 

XgWindowText(  -2.0,  7.0,  “One  end  connected"); 
XgWindowText(-1.0,  7.0,  "Neither  end  connected**); 
XgSetCharacterHeight  ( 5.0); 

XgSetTextColor(XG  MAGENTA); 

XgWindowText(  -5.a  1-0.  “  - **); 

XgSetT extCol  o  r(XG_CY  AN) ; 

XgWindowText( -3.0, 1.0,  “  - **); 

XgSetTextColor(XG_YELLOW); 

XgWindowText(  -1 .0, 1.0,  "  - "); 

XgSetCharacterHeight  (10.0); 

> 

if  ((plttype  1=  0)&&(plttype  f=  4)&&(plttype  1=  10)&&(plttype  <  17)) 

{ 

maxv=  maxval[plttype-1]; 
minv  =  minval[plttype-1]; 
range  =  maxv-minv; 

if  ((plttype  ==  5) (j (plttype  ==  6)||{plttype  ==  7))  { 

val[0J  =  minv/(pow(10.,log10(minv/maxv)/7)); 
valjl)  =  minv/(pow(10.,2Tog10{minv/ma>v)/7)); 
val[2)  =  minv/(pow(10.,3*log10(minv/maxv)/7)); 
val[3]  =  minv/(pow(10.,47og10(minv/maxv)/7)); 
val[4J  =  minv/(pow(10.15*log10(minv/maxv)/7)); 
val[5]  =  minv/(pow(10.,6*log10(minv/maxv)/7)); 

> 

else  { 

val[0]  =  minv+ range/7; 
val[lj  =  minv+2*range/7; 
val(2]  =  mirrv+3*range/7; 
valpj  =  minv+4*range/7; 
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val[4]  =  minv+5*range/7; 
val[5]'=  minv+6*range/7; 

) 

XgSetTextColor(XG_WHITE); 
switch  (plttype)  { 

case  1:  XgWindowTextf  -8.0, 1.0,  “SEGMENT  LENGTH,  METERS  (UNEAR  SCALE)"); 
break; 

case  Z  XgWindowTextf  -8.0,  1.0,  'WIRE  RADIUS.  METERS  (UNEAR  SCALE)"); 
break; 

case  3:  XgWindowTextf  -8.0, 1.0,  "SEGMENT  TO  RADIUS  RATIO  (UNEAR  SCALE)"); 
break; 

case  5:  XgWindowText(  -8.0, 1.0,  "SEGMENT  LENGTH,  METERS  (LOG  SCALE)"); 
break; 

case  6:  XgWindowTextf  -8.0, 1.0,  "WIRE  RADIUS,  METERS  (LOG  SCALE)"); 
break; 

case  7:  XgWindowTextf  -8.0, 1.0,  "SEGMENT  TO  RADIUS  RATIO  (LOG  SCALE)"); 
break; 

case  8:  XgWindowText(  -8.0, 1.0,  "CURRENT  MAGNITUDE,  AMPS  (UNEAR  SCALE)"); 
break; 

case  0;  XgWindowText(  -8.0, 1.0,  "CURRENT  MAGNITUDE,  AMPS  (LOG  SCALE)"); 
break; 

case  11:  XgWindowTextf  -8.0,  1.0,  "CHARGE  MAGNITUDE,  COULOMBS  (UNEAR  SCALE)"); 
break; 

case  12:  XgWindowTextf  -8.0, 1.0,  "CHARGE  MAGNITUDE.  COULOMBS  (LOG  SCALE)"); 
break; 

case  13:  XgWindowText(  -8.0, 1.0,  "Z-COMPONENT  OF  E-NORMAL,  VOLTS/METER"); 
break; 

case  14:  XgWindowText(  -8.0, 1.0,  "TOTAL  E-NORMAL,  VOLTS/METER*); 
break; 

case  15:  XgWindowText(  -8.0, 1.0,  "X-COMPONENT  OF  H-NORMAL"); 
break; 

case  16:  XgWindowText(-8.0, 1.0,  "Y-COMPONENT  OF  H-NORMAL"); 
break; 

> 

XgSetCharacterHeight  (5.0); 

XgSetTextColor(XG  MAGENTA); 

XgWindowTextf  -13~0, 1.0,  " - "); 

sprintf(keystring,"%5.2f  -  %5.2T,minv,val[0D; 

XgSetCharacterHeight  (10.0); 

XgSetTextColor(XG_WHITE); 

XgWindowText(  -7.0,  6.0,  keystring); 

XgSetCharacterHeight  (5.0); 

XgSetTextColor(XG_BLU  E) ; 

XgWindowTextf -11.0,  1.0, " - "); 

sprintf(keystring,"%5.2f  -  %5.2T,val[0],val[1]); 

XgSetCharacterHeight  (10.0); 

XgSetTextColor(XG_WHITE); 

XgWindowText(  -6.0,  6.0,  keystring); 

XgSetCharacterHeight  (5.0); 

XgSetTextColor(XG_CYAN) ; 

XgWindowTextf  -9.0, 1.0,  "  - "); 

sprintf  (keystring, "%5.2f  -  %5.2r,val(1],val[2]); 

XgSetCharacterHeight  (10.0); 

XgSetTextColor(XG— WHITE); 

XgWindowTextf  -5.0,  6.0,  keystring); 

XgSetCharacterHeight  (5.0); 

XgSetTextColor(XG_GREEN); 

XgWindowTextf -7.0,  1.0,  "  — "); 
sprintf  (keystring, "%5.2f  -  %5.2T,valp].vaI[3D; 

XgSetCharacterHeight  (10.0); 

XgSetTextColor(XG_WHITE); 

XgWindowTextf -4.0,  6.0,  keystring); 

XgSetCharacterHeight  (5.0); 

XgSetTextColor(XG  YELLOW); 

XgWindowTextf  -5.6]  1.0,  "  - 7, 

sprintf(keystring,“%5.2f  -  %5.2r,val[3],val[4]); 

XgSetCharacterHeight  (10.0); 

XgSetTextColor  (XG_WHITE) ; 

XgWindowTextf  -3.0,  6.0,  keystring); 

XgSetCharacterHeight  (5.0); 

XgSetTextColor(XG_RED); 

XgWindowTextf  -3.0, 1.0, "  - “); 

sprintf  (keystring ,"%  5 . 2f  -  %5.2T,val[4],val[5]); 

XgSetCharacterHeight  (10.0); 

XgSetTextColor(XG_WHITE); 

XgWindowTextf -2.0,  6.0,  keystring); 

XgSetCharacterHeight  (5.0); 

XgSetTextColor(XG_WHITE); 

XgWindowTextf -1.0, 1.0, "  - “); 

sprintffkeystring.^S^  -  %5.2T,val[5],maxv); 

XgSetCharacterHeight  (10.0); 

XgSetTextColcr(XG_WHITE); 

XgWindowTextf  -1.0,  6.0,  keystring); 

> 

if  ((plttype  ==  10)H  (plttype  >=  17)) 

{ 

XgSetCharacterHeight  (10.0); 

Xg  SetT extCo!or(XG_WHITE) ; 
switch  (plttype)  { 

case  10:  XgWindowTextf  -8.0, 1.0,  "Current,  PHASER; 
break; 

case  17:  XgWindowTextf  -8.0, 1.0,  "E-THETA,  PHASE"); 
break; 
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case  18:  XgWindowText(  -8.0, 1.0,  “E-THETA,  DB,  PHASE**); 
break; 

case  19:  XgWindowText(  -8.0, 1.0,  "E-PHI,  PHASE**); 
break; 

case  20:  XgWindowText(  -8.0, 1.0,  "E-PHI,  DB,  PHASE**); 
break; 

> 

XgSetCharacterHeight  (5.0); 

XgSetT extCoior(XG  MAGENTA); 

XgWindowText(  -13.0, 1.0," - "); 

sprintf  (keystring,"0  -  60**); 

XgSetCharacterHeight  (10.0); 

XflSetTextColor(XG_WH[TE); 

XgWindowText(  -7.0,  6.0,  keystring); 

XgSetCharacterHeight  (5.0); 

XgSetTextColor(XG  BLUE); 

XgWindowText(  -11.0, 1.0,  "  — — 
sprintf(keystring,“60  - 120**); 

XgSetCharacterHeight  (10.0); 

XgSetTextColor(XG_WHITE); 

XgWindowText(  -6.0,  6.0,  keystring); 

XgSetCharacterHeight  (5.0): 

XgSetT extColor (XG  CYAN); 

XgWindowTexK  -9.a  1.0,  "  - "); 

sprintf  (keystring, “120  - 180*); 

XgSetCharacterHeight  (10.0); 

XgSetTextCoior(XG_WHITE); 

XgWindowText(  -5.0,  6.0,  keystring); 

XgSetCharacterHeight  (5.0); 

XgSetTextColor(XG  GREEN); 

XgWindowText( -7.S  1.0,  "  - "); 

sprintf  (keystring, "180  -  240"); 

XgSetCharacterHeight  (10.0); 

XgSetTextCotor(XG_WHITE); 

XgWindowText(  -4.0,  6.0,  keystring); 

XgSetCharacterHeight  (5.0); 

XgSetTextColor(XG  YELLOW); 

XgWindowText(  -5.5!  1.0,  "  - "); 

sprintf  (keystring, "240  -  300"); 

XgSetCharacterHeight  (1 0.0); 

XgSetTextColor(XG_WHITE); 

XgWindowText(  -3.0,  6.0,  keystring); 

XgSetCharacterHeight  (5.0); 

XgSetTextColor(XG_RED) ; 

XgWindowText(  -3 .0, 1.0,  “  - "); 

sprintf(keystring,"300  -  360**); 

XgSetCharacterHeight  (10.0); 

XgSetTextColor(XG_WHITE); 

XgWindowText(  -Z0,  6.0,  keystring); 

> 

return  0; 

> 

r . / 

void  closeButtonCB  (w,  shell,  cbs) 

Widget  w,  shell; 

XmPushButtonCallbackStruct  *cbs; 

{ 

if  (straightWiresShell) 

XtPopdown(straightWiresShell); 
if  (nodeCoordShelt) 

XtPopdown(nodeCoordShell); 

XtPopdown(shell); 

w  =  NULL; 
cbs  =  NULL; 

> 


r . . . f 

void  editWireButtonCB  (w,  shell,  cbs) 

Widget  w,  shell; 

XmPushButtonCallbackStruct  *cbs; 

{ 

Widget  box,  list; 

extern  void  openStraightWiresWindowO; 

openStraightWiresWindowO ; 
box  =  XtNameToWidget  (straightWiresShell, 
"straightWiresForm.straightWiresBox"); 
list  =  Xm  Selection  BoxGetChild  (box,  XmDIALOG_LJST); 
XmListSetPosflist,  wirelndex); 

XmListSelectPos(list  wirelndex,  True); 

w  =  NULL; 
shell  -  NULL; 
cbs  =  NULL; 

> 

r . / 

void  editNodeButtonCB  (w,  node,  cbs) 

Widget  w; 
int  node; 

XmPushButtonCallbackStruct  "cbs; 
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{ 

int  index: 

Widget  list; 

extern  Widget  nodeCoord List; 
extern  void  openNodeCoordWindowO; 

openNodeCoordWindowQ; 
list  =  nodeCoordUst 
if  (node  =  1) 

index  =  GW_END1  [wirelndex  - 1]; 

else 

index  =  GW_END2[wirelndex  - 1]; 
XmUstSetPos(list,  index); 
XmUstSelectPos(list,  index,  True); 

w  =  NULL; 
cbs  =  NULL; 

> 


void  updateCB  (w,  drawinfo,  event) 
Widget  w; 


DrawData  *drawinfo; 


XEvent  ‘event; 


{ 

extern  void  geometryFilterQ; 


if  (event->xany.type  ==  Foe  us  Out  [|  drawinfo->type  >=17) 
return; 


if  (DRAW)  { 
geometryFilterO; 

initialize(drawinfo->  source,  drawinfo->freq,  drawlnfo->type); 
DrawGeo  (drawlnfo->type); 

DRAW  =  False; 

} 

w  =  NULL; 


*  When  user  closes  the  window,  free  memory. 


static  void  destroyCB  (widget) 
Widget  widget; 


{ 

DrawData  ‘drawData; 


XtVaGetValues  (widget  XmNuserData,  &drawData,  NULL); 

T  The  following  is  commented  out  because  it  keeps  crashing! 
XgCloseDevice(drawData->xgd); 

•/ 

XtFree  ((char  •)  drawData); 

XtDestroyWidget  (widget); 
if  (straightWiresShell) 

XtPopdown  (stra  ightWiresShell) ; 
if  (nodeCoordShell) 

XtPopdown(nodeCoordShell) ; 
if  (popupShell)  { 

XtPopdown(popupShell); 
popupShell  =  NULL; 

} 

}  T  end  destroyCB  */ 
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A.19  cEditGeox,  fEditGeo.c 


cEdifGeo.c: 

r 

•  Callback*  for  the  Edit  Geometry  Cards  window 
7 


include  <Xm/Usth> 
#indude  <Xm/Texth> 
include  “control. h" 
include  "cFileMenu.h" 

extern  int  getUstPosition  0; 


extern  struct  gllrtk  ’gcheckUst,  ’gbuffertist,  ’gpositionQ; 

extern  struct  gUnk  ’gholdUst; 

extern  struct  gcountRecord  grecord; 

extern  int  siblingsOfWidgetQ; 

extern  void  gCopyCountQ; 

extern  void  gResetCountO; 

extern  void  updateGeoDataO; 

extern  struct  glink  *gCopyUst(); 

extern  struct  glink  ’gResetiistO; 

extern  struct  glink  *gEmptyList{); 

extern  XmStringTable  clearTableO; 

r . . 

void  editGeoAddButtonCB  (w,  shell) 

Widget  w,  shell; 

{ 

char  ‘string; 

XmString  xmstring; 
int  index; 

Card  Data  ’cardData; 

XtVaGetValues  (shell,  XmNuserData,  &cardData,  NULL); 

string  =  XmTextGetString  (cardData->text); 

if  (string[0]  ==  ’VO')  { 

XtFree  (string); 
return; 

> 

xmstring  =  XmStringCreateSimple  (string); 

XtFree  (string); 

r  Get  the  current  list  selection  7 

index  =  getUstPosition  (card  Data ->list)  +  1; 


/•  Insert  string  into  list  7 

XmUstAddltem  (cardData->list  xmstring,  index); 
XmUstSelectPos  (card Data-> list  index,  TRUE); 

XmString Free  (xmstring); 

w  -  w;  r  Make  compiler  happy  7 

>  r  end  editGeoAddButtonCB  7 

r . . . / 

void  editGeoModifyButtonCB  (w,  shell) 

Widget  w,  shell; 

{ 

char  ’string; 
int  index; 

XmString  xmstring; 

CardData  ’card Data; 

XtVaGetValues  (shell,  XmNuserData,  ScardData,  NULL); 

string  =  XmTextGetString  (cardData->text); 

if  (string  [0]  ==  "UT)  { 

XtFree  (string); 
return; 

> 

xmstring  =  XmStringCreateSimple  (string); 

XtFree  (string); 

r  Get  the  current  list  selection  7 

if  (index  =  getUstPosition  (cardData->list))  { 

r  Replace  string  in  list  7 

XmUstReplacettemsPos  (cardData-»list  &xm string,  1 ,  index); 
XmUstSelectPos  (cardData->list,  index,  TRUE); 

XmStringFree  (xmstring); 

} 

w  =  w,  r  Make  compiler  happy  7 
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}  r  end  editGeoModifyButton  */ 


r . * . . 

void  editGeoOeieteButtonCB  (w,  shell) 

Widget  w,  shell; 

{ 

int  index; 

CardData  *cardData; 
int  count  *positionUst 


XtVaGetValues  (shell,  XmNuserData,  & cardData,  NULL); 

/•  Get  the  current  list  selection  7 

if  (index  =  getListPosition  (cardData->list))  { 

1*  Delete  string  in  list  V 

XmListGetSelectedPos  (cardData->list  &positionList  &count); 
XmListDeietePositions  (cardData->list  positionList  count); 

Xtf  fee  ((char  *)positionLisQ; 

XmListSelectPos  (cardData->lrst  index,  TRUE); 
if  (IXmUstPosSelected(cardData->li$t  index)) 

XmListSelectPos  (card  Da  ta->  list,  index  - 1,  TRUE); 

> 

w  =  w;  /*  Make  compiler  happy  V 
}  r  end  editGeoDeleteButton  */ 

. . . / 

void  editGeoCopyButtonCB  (w,  shelO 
Widget  w,  shell; 

{ 

int  index; 

XmString  •items,  test[3]; 

CardData  *cardData; 
int  i,  j,  count  •positionList 
int  *pos,  poscount  =  0; 

XtVaGetValues  (shell,  XmNuserData.  ScardData,  NULL); 

r  Get  the  current  list  selection  7 

if  (index  =  getListPosition  (cardData->list))  { 

r  Get  the  items  7 

XtVaGetValues  (cardData->list  XmNitems,  &items,  NULL); 

XtVaGetValues  (cardData->list  XmNselected Items,  &items,  NULL); 
XmListGetSelectedPos  (cardData->list  &positionList  &count); 

pos  =  (int  *)XtMalloc(count  *  sizeof(int)); 
test{0]  =  XmStringCreateSimple  rGM"); 
test(lj  =  XmStringCreateSimple  fGR"}; 
test(2j  =  XmStringCreateSimple  ("GX"}; 
for  (i  =  0;  i  <  count;  i++)  { 
for  0  =  0;  j  <  3;  j++) 

if  (XmStringHasSubstring(items[i],  testjj])) 

break; 

if  0==3){  1*  not  found  V 
pos[poscountj  =  positionListfi]; 
poscount++; 

> 

> 

for  (i  =  0;  i  <  3;  i++) 

XmString  Free(test(i]); 
if  (poscount)  { 
for  0  =  0;  i  <  poscount;  i++) 

XmListDeselectPos(cardData->list  pos(i]); 

XtFree  ((char  *)pos); 

XtFree  ((char  *)positionLi$t); 
count  =  0; 

XtVaGetValues  (cardData->list,  XmNselected  Items,  &items,  NULL) 

XmListGetSelectedPos  (cardData->list,  SpositionList,  &count); 
if  (Icount)  { 
return; 

} 

> 

XtFree  ((char  *)positionList); 

> 

w  =  w;  /*  Make  compiler  happy  7 

}  r  end  editGeoCopyButtonCB  7 

/ . . 

void  editGeoCutButtonCB  (w,  shell) 

Widget  w,  shell; 

{ 

int  index; 

XmString  *items,  testf3); 

CardData  *  card  Data; 
int  i,  j,  count  *positionList; 
int  *pos,  poscount  =  0; 
extern  struct  glink  •gCutUpdateQ; 
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XtVaGetValues  (shell,  XmNuserOata,  ScardData,  NULL); 

r  Get  the  current  list  selection  V 

if  (index  =  getListPosition  (card  Data->  list))  { 

XtVaGetValues  (cardData->iist  XmNselectedftems,  &rtems,  NULL); 
XmUstGetSelectedPos  (card  Data->  list,  &positionList,  &  count); 

pos  =  (int  *)XtMalloc(cdunt  *  Si2eof(int)); 
testfO]  =  XmStringCreateSimple  fG IVT); 
test(1]  =  XmStringCreateSimple  ("GR"); 
test[2]  =  XmStringCreateSimple  ("GX"); 
for  (i  =  0;  i  <  count;  i-w)  { 
for  0  =  0;  j  <  3;  j++) 

if  (XmStringHasSubstring(ftems[i),  test®) 
break; 

if  Q  =  3)  {  r  notfound  */ 
pos[poscount]  =  position  Listfi]; 
poscount**; 

> 

> 

for  (i  =  0;  i  <  3;  i+*) 

XmStringFree(testtn); 
if  (poscount)  { 

createMessageOialog(w,  "Message", 

"Only  GM,  GR,  GX  will  be  cut*,  0); 
for  (i  =  0;  i  <  poscount; »**) 

XmUstDeselectPos(cardData->list  pos®; 

XtFree  ((char  *)pcs); 

XtFree  ((char  *)positionList); 
count  =  0; 

XtVaGetValues  (cardData->list,  XmNseiectedltems,  Stems,  NULL); 
XmUstGetSelectedPos  (card0ata->list,  SpositionUst,  &count); 
if  (Icount)  { 
return; 

} 

> 

gbufferList  =  gCutUpdate(cardData->list,  gposition, 
gcheckList,  gbufferList); 

if  (igbufferUst) 
return; 

XmUstDeietePositions  (card  Data->  list  position  List  count); 

XtFree  ((char  *)positionList); 

t*  Delete  string  in  list  */ 

XmListSelectPos  (card Data -> list  index,  TRUE); 
if  (!XmListPosSelected(cardData->list  index)) 

XmListSelectPos  (cardData-»list  index  - 1.  TRUE); 

> 

w  =  w;  r  Make  compiler  happy  V 
>  r  end  editGeoCutButtonCB  7 

r~ . . . . . / 

void  editGeoPasteButtonCB  (w,  shell) 

Widget  w,  shell; 

{ 

int  index; 

CardData  'cardData; 
int  i  =  0; 

struct  glink  ‘node; 
extern  void  gPasteUpdateO; 

XtVaGetValues  (shell,  XmNuserOata,  ScardData,  NULL); 

T  Get  the  current  list  selection  V 

gPasteUpdate(cardData->list  gposition,  gcheckList  gbufferijst); 

T  Insert  string  in  cutBuffer  into  current  position  V 
index  -  getListPosition  (cardData->list); 
if  (index  ==  0)  index  =  1 ; 
node  =  gbufferList; 
while  (node)  { 

XmListAddltem  (cardData->list,  node->string,  index  *  i); 
node  =  node->next 


> 

XmUstDeselectAllltems  (cardData->list); 
XmListSelectPos  (cardData->list  index,  TRUE); 

w  =  w;  r  Make  compiler  happy  V 

)  r  end  editGeoPasteButtonCB  V 

r . 

void  edttGeoOkButtonCB  (w,  pane) 

Widget  w,  pane; 

{ 

extern  void  odrtGeoApplyButtonCB  0; 

CardData  *cardData; 

editGeoApplyButtonCB  (w,  pane); 
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XtVaGetValues  (pane,  XmNuserOata,  &cardOata,  NULL); 

XtPopdown  (*(cardData->shell)); 

}  r  end  editGeoOkButtonCB  7 

r . / 

void  editGeoApplyButtonCB  (w,  shell) 

Widget  w,  shell; 

{ 

Arg  args  (2J; 

XmString  'items; 

int  i,  itemCount 

extern  Widget  momExportUst 

extern  XmString  'GeometryCards,  'ControlCards; 

extern  int  NumGeometryCards,  NumControlCards; 

CardData  'cardData; 
extern  Boolean  saveAlert 

XtVaGetValues  (shell,  XmNuserOata,  &cardData,  NULL); 

r  Get  list  items  &  item  count  7 
XtSetArg  (args(0j,  XmNitems,  &rtems); 

XtSetArg  (argsflj,  XmNitemCount  &itemCount); 

XtGetValues  (cardData->tist  args,  2); 

T  Deallocate  then  allocate  room  for  cards  7 
for  (i  =  0;  i  <  cardData->numCards;  i++) 

XmStringFree  (cardData->cards[i]); 

XtFree  ((char  *)  cardData-> cards); 

cardDatao- cards  =  (XmString  *)  XtMalloc  (sizeof  pOn String)  *  itemCount); 

/*  Copy  the  items  and  itemCount  7 
for  0  =  0;  i  <  itemCount;  i++) 
cardData-»cards[i]  =  XmStringCopy  (items  [i]); 
cardData->numCards  =  itemCount; 

r  Update  global  variables  7 
if  (card Data -> type  ==  0)  ( 

GeometryCards  =  cardData ->  cards; 

NumGeometryCards  =  itemCount 
>else{ 

ControlCards  =  cardData->cards; 

NumControlCards  =  itemCount 

} 

gholdList=  gCopyList  (gcheckList  gholdList); 

gCopyCount(&grecord); 

saveAlert  =  True; 

w  =  w,  r  Make  compiler  happy  7 

}/*  end  editGeoApplyButtonCB  7 

. - . / 

void  editGeoResetSuttonCB  (w,  shell,  cbs) 

Widget  w,  shell; 

XmPushButtonCallbackStruct  'cbs; 

< 

Arg  args  [2]; 

CardData  'cardData; 

XtVaGetValues  (shell,  XmNuserOata,  &  card  Data,  NULL); 

XtSetArg  (args[0],  XmNitems,  cardData-> cards); 

XtSetArg  (args[1),  XmNitemCount  cardData->numCards); 

XtSetValues  (cardData-»list  args,  2); 

XmListDeselectAllltems(cardData->  list) ; 

gcheckList  =  gResetList  (gcheckList  gholdList  gposition); 

gResetCount(&grecord); 

updateGeoData  (gcheckList  aLL); 

gbufferList  =  gEmptyList(gbufferList); 

XmListDeselectAIIJtems(cardData->  list); 

w  =  w :  T  Make  compiler  happy  7 
cbs  =  NULL; 

)  r  end  editGeoResetButtonCB  7 

r . / 

void  editGeoCancelButtonCB  (w,  shell,  cbs) 

Widget  w,  shell; 

XmPushButtonCallbackStruct  *cbs; 

{ 

extern  Widget  getTopShellO; 

editGeoResetButtonCB(w,  shell,  cbs); 
shell  =  getTopShell(shell); 

XtPopdown  (shell); 
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fEditGeo.c: 

-  r 

*  Procedures  for  creating  the  Edit  Geometry  Cards  Window 
V 

include  "control,  h" 

#indude  <Xm/Form.h> 
include  <Xm/Listh> 
include  <Xm/PanedW.h> 

#indude  <Xm/PushB.h> 

#incJude  <Xm/RowColumn.h> 

#inciude  <Xm/TextF.h> 

IBndude  <stdio.h» 

#md  ude  "actionArea.h" 

♦include  “ctrigeo.h" 

,  extern  Widget  topLevel; 

Widget  editGeoShell  =  NULL; 
extern  Widget  editCtriShell; 

extern  void  edttGeoOkButtonCB  0; 
extern  void  editGeoApplyButtonCB  0; 
extern  void  editGeoResetButtonCB  0; 
static  void  destroyCB  0; 

Widget  createEditWindow  0; 

extern  Boolean  isPoppedUp  0; 
extern  void  editGeoCancelButtonCB  0; 

Widget  geoList  =  NULL; 

r . V 

void  openEditWindow  0 

{ 

Widget  shell; 

Boolean  notOpen  =  FALSE; 

Card  Data  "cardData; 

extern  XmString  "GeometryCards; 

extern  int  NumGeometryCards; 

extern  struct  glink  "gcheckUst.  "gbufferList; 

extern  void  setGeoListQ; 

extern  XmString  "updateCardsO; 

extern  struct  glink  "gEmptyUstO; 

if  (editGeoShell  ==  NULL)  { 

editGeoShell  =  createEditWindow  ("Edit  Card  Order,  GeometryCards, 
NumGeometryCards,  0); 

notOpen  =  TRUE; 

> 

shell  =  editGeoShell; 
if  (!isPoppedUp(sheil)) 
notOpen  =  TRUE; 

if  (notOpen)  ( 

Widget  pane  =  XtNameToWidget  (shell,  “pane"); 

XtVaGetValues  (pane,  XmNuserData,  &cardData,  NULL); 
setGeoList(cardData->list  gcheckList); 

GeometryCards  =  updateCards(cardData->list, 

GeometryCards,  &NumGeomefcryCards); 
card  Data ->  cards  =  GeometryCards; 
cardData->numCards  =  NumGeometryCards; 
gbufferList  =  gEmptyList(gbufferList); 

XtPopup  (shell,  XtGrabNone); 

> 

>  r  end  openEditWindow  7 

r . . . . . . . . . / 

Widget  createEditWindow  (name,  cards,  numCards,  cardtype) 
char  "name; 

XmString  "cards; 
int  numCards,  cardtype; 

{ 

Widget  shell,  form,  pane,  list,  rowColumn,  button; 

Arg  args  (20J; 
int  n  =  0; 

CardData  “card Data; 
extern  void  editGeoAddButtonCB  0; 
extern  void  editGeoModifyButtonCB  0; 
extern  void  editGeoDeleteButtonC8  0; 
extern  void  ©ditGeoCutButtonCB  0; 
extern  void  editGeoPasteButtonCB  Q; 
static  ActionArealtem  actionltems  Q  =  { 
fOk“,  editGeoOkButtonCB,  NULL), 

{•Apply",  editGeoApplyButtonCB,  NULL), 
fReset",  editGeoResetButtonCB,  NULL), 

{CanceT,  editGeoCancelButtonCB,  NULL) 

}; 

extern  void  newSelectActionTabJe  0; 
extern  void  editGeoCopyButtonCB  0; 
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extern  void  newEsca p« Action 0; 
extern  Widget  momExportShell; 


XtSetArg  (args{0],  XmNdeleteResponse,  XmDESTROY); 
shell  =  XtCreatePopupShell  (name,  topLevelShellWidgetClass, 
topLevel,  args,  1); 

newEscapeAction(shell); 

r  Create  structure  for  storing  card  data  7 

cardData  =  (CardOata  *)  XtMalloc  (sizeof  (Card Data)); 

cardData-> shell  =  cardtype  ==  0  ?  iedttGeoShell :  &editCtrl  Shell; 

cardData->  cards  =  cards; 

cardData->numCards  =  numCards; 

cardData ->  type  =  cardtype; 


XtSetArg  (argsfO],  XmNsashWidth,  1); 

XtSetArg  (argsjlj,  XmNsashHeight,  1); 

pane  =  XmCreatePanedWindow  (shell,  “pane",  args,  2); 

XtVaSetValues  (pane,  XmNuserOata,  cardData,  NULL); 

XtAddCallback  (shell,  XmNdestroyCallback,  destroyCB,  pane); 
form  =  XmCreateForm  (pane,  "form",  args.  0); 

n  =  0; 

XtSetArg  (args[n],  XmNrightAttachment,  XmATTACH^FORM);  n++; 

XtSetArg  (argsjnj,  XmNrightOffset  15);  n++; 

XtSetArg  (argsjnj,  XmNtopAttachment,  XmATTACH__FORM);  n++; 

XtSetArg  (argsjnj,  XmNtopOffset,  15);  n++; 

XtSetArg  (argsjnj,  XmNisAligned,  True);  n++; 

XtSetArg  (argsjnj,  XmNentryAlignment,  XmALIGNMENT_CENTER);  n++; 
rowColumn  =  XmCreateRowColumn  (form,  "rowColumn",  args,  n); 
button  =  XmCreatePushButton  (rowColumn,  "Cut",  args,  0); 

XtManageChild  (button); 

XtAddCallback  (button,  XmNactivateCallback,  edrtGeoCutButtonCB,  pane); 
button  =  XmCreatePushButton  (rowColumn,  "Paste",  args,  0); 

XtManageChild  (button); 

XtAddCallback  (button,  XmNactivateCaJlback,  editGeoPasteButtonCB,  pane); 

XtManageChild  (rowColumn); 

/*  Create  list  box  for  holding  cards  V 
n  =  0; 

XtSetArg  (args[n],  XmNnghtAttachment,  XmATTACH_WIDGET);  n++; 
XtSetArg  (argsjnj,  XmNrightWidget,  rowColumn);  n++; 

XtSetArg  (argsjnj,  XmNnghtOffset,  10);  n++; 

XtSetArg  (argsjnj,  XmNleftAttachment,  XmATTACH_FORM);  n++; 

XtSetArg  (argsjnj,  XmNleftOffset,  15);  n++; 

XtSetArg  (argsjnj,  XmNtopAttachment,  XmATTACH_FORM);  n++; 

XtSetArg  (argsjnj,  XmNtopOffset,  15);  n++; 

XtSetArg  (argsjnj,  XmNvisibleltemCount,  20);  n++; 

XtSetArg  (argsjnj.  XmNwidth,  700);  n++; 

list  =  XmCreateScrolledList  (form,  “list**,  args,  n); 

cardData*>list  -  list 

XtManageChild  (list); 

geoList  =  list 


r>=0; 

XtSetArg(args(n),  XmNselectionPolicy,  XmEXTENDED_SELECT);  n++; 
XtSetValues(list  args,  n); 
newSeiectActionTable  (list); 

XtManageChild  (form); 

r  Create  action  area  at  bottom  of  window  7 
actionltems[0].data  =  (XtPointer)  pane; 
actionltemsjlj.data  =  (XtPointer)  pane; 
actionltems[2].data  =  (XtPointer)  pane; 
actionltemspj.data  =  (XtPointer)  pane; 

createActionArea  (pane,  actionltems,  XtNumber  (actionltems)); 
XtManageChild  (pane); 

return  (shell); 

}  r  end  createSelectionBox  7 

static  void  destroyCB  (w,  pane) 

Widget  w,  pane; 

{ 

CardData  *cardData; 

XtVaGetValues  (pane,  XmNuserOata,  &cardData,  NULL); 
•(cardDatao-shell)  =  NULL; 

XtFree  ((char  *)  cardData); 

w  =  w;  r  Make  compiler  happy  7 

}  r  end  destroyCB  7 
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A.20  cNeedControl.c,  fNeedControl.c 


cNeedControl.c: 

r 

*  Callbacks  for  the  Edit  Geometry  Cards  window 

•/ 

include  “control. h" 
include  <Xm/Usth> 
include  <Xm/Texth> 

#indude  "cFileMenu.h" 

extern  int  getUstPosition  0; 

Boolean  replaceNotify  =  False; 


extern  struct  link  *checkUst,  ‘bufferList  *positionO; 

extern  struct  link  *holdUst; 

extern  void  copyCountQ; 

extern  void  resetCountO; 

extern  void  updateControlOataO; 

extern  struct  link  *copyUst(); 

extern  struct  link  VesetListQ; 

extern  struct  link  ‘emptyListO; 

extern  XmStringTable  clearTableO; 

extern  struct  countRecord  record; 

r . . . 

void  optionToWindow(optionlist) 

Widget  optionlist; 

{ 

extern  void  openFrequencyWindow  0; 
extern  void  openLoadsWindow  0; 
extern  void  openVoltageSourcesWindow  0; 
extern  void  openlncidentPlaneWaveWindow  0; 
extern  void  openTransmissionUnesWindow  0; 
extern  void  openTwoPortNetsWindow  0; 
extern  void  openlnsulatedWiresWindow  0; 
extern  void  openGroundParamWindow  0; 
extern  void  openAddGroundParamWindow  0; 
extern  void  openUpperMediumParamWindow  0; 
extern  void  openMaxCouplingWindow  0; 
extern  void  openNearElectricWindow  0; 
extern  void  openNearMagneticWindow  0; 
extern  void  openRadiationPattemWindow  0; 
extern  void  openPrintOptionsWindow  0; 
int  index; 

index  =  getListPosition  (optionlist); 
switch  (index)  { 

easel:  openFrequencyWindow 0; 
break; 

case  2:  openLoadsWindow  0; 
break; 

case  3:  openVoltageSourcesWindow  O', 
break; 

case  4:  openlncidentPlaneWaveWindow  0; 
break; 

case  5:  openTransmissionUnesWindow  0; 
break; 

case  6:  openTwoPortNetsWindow  0; 
break; 

case  7:  openlnsulatedWiresWindow  Q; 
break; 

case  8:  openGroundParamWindow  0; 
break; 

case  9:  openAddGroundParamWindow  0; 
break; 

case  10:  openUpperMediumParamWindow  0; 
break; 

case  11:  openMaxCouplingWindow  0; 
break; 

case  12:  openNearElectricWindow  0; 
break; 

case  13:  openNearMagneticWindow  0; 
break; 

case  14:  openRadiationPattemWindow  0; 

break; 

case  15:  openPrintOptionsWindow  (PQ); 
break; 

case  18:  openPrintOptionsWindow  (PS); 
break; 

case  17:  openPrintOptionsWindow  (PT); 

break; 

default 

break; 

> 

}  r  end  optionToWindow  7 

r . . ‘ . / 
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void  descriptionToWindow(descriptioniist) 

Widget  descriptionlist; 

{ 

extern  void  openFrequencyWindow  0; 
extern  void  openLoadsWindow  0; 
extern  void  openVottageSourcesWindow  0: 
extern  void  openlncidentPlaneWaveWindow  0; 
extern  void  openTransmissionLinesWindow  0; 
extern  void  openTwoPortNetsWindow  0; 
extern  void  openlnsulatedWiresWindow  0; 
extern  void  openGroundParamWindow  0; 
extern  void  openAddGroundParamWindow  0; 
extern  void  openUpperMediumParamWindow  0; 
extern  void  openMaxCoupiingWindow  Q; 
extern  void  openNearHectricWindow  0; 
extern  void  openNearMagneticWindow  0; 
extern  void  openRadiationPattemWindow  Q; 
extern  void  openPrintOptionsWindow  0; 
int  index; 
struct  link  ‘node; 


index  =  getUstPosition(descriptionlist); 
if  ((index) 
return; 


node  -  positionfindex]; 
r  save  the  order  at  the  head  7 
posrtion(0]->  order  =  node->  order; 
switch  (node->tableType)  { 

case  FR;  openFrequencyWindow  0; 
break; 

case  LD;  openLoadsWindow  0; 
break; 

case  EXO:  openVottageSourcesWindow  0; 
break; 

case  EX1:  openlncidentPlaneWaveWindow  0; 
break; 

case  TL  openTransmissionLinesWindow  0; 
break; 

case  NT:  openTwoPortNetsWindow  0; 
break; 

case  IS:  openlnsulatedWiresWindow  0; 
break; 

case  GN:  openGroundParamWindow  0; 
break; 

case  GO:  openAddGroundParamWindow  0; 
break; 

case  UM:  openUpperMediumParamWindow  0; 
break; 

case  CP:  openMaxCoupiingWindow  Q; 
break; 

case  NE:  openNearEtectricWindow  0; 
break; 

case  NH:  openNearMagneticWindow  0; 
break; 

case  RP:  openRadiationPattemWindow  0; 
break; 

case  PQ:  openPrintOptionsWindow  (PQ); 
break; 

case  PS:  openPrintOptionsWindow  (PS); 
break; 

case  PT;  openPrintOptionsWindow  (PT); 
break; 

default 

break; 

> 

}  r  end  descriptionToWindow  •/ 


r . . . — 

void  editCtriAddButtonCB  (w,  shell,  cbs) 

Widget  w,  shell; 

XmPushButtonCallbackStruct  *cbs; 

{ 

int  index; 

CardOata  *cardData; 
char  newstring[132); 

Xm String  xmString; 
extern  Widget  controlList 
struct  link  *node,  'next,  *prev; 
extern  void  updatePositionO; 

XtVaGetValues  (shell,  XmNuserData,  ScardData,  NULL); 

replaceNotify  =  False; 
opt»onToWindow(cardData->optionlist); 

if  (get!istPosition{cardData->optionlist)  ==  18)  { 
sprintf  (newstring,  "XCT); 
xmString  =  XmStringCreateSimple  (newstring); 
node  =  (struct  link  *)XtMalloc(sizeof(struct  link)); 
node->tableType  =  XQ; 
nod  ©->  string  =  XmString  Copy  (xmString); 
index  =  getListPosition  (controlList); 


if  ((index)  index  =1; 

XmListAddltemUnselected  (controlUst,  xmString,  index); 

XmStringFree  (xmString); 

prev  =  positionfindex  - 1]; 
next  =  position  [index]; 
prev->next  =  node; 
nod  e->  prev  =  prev; 
node->next=  next; 
next->prev  =  node; 
updatePosition(p©sition,  checkList); 

ExecuteCount++; 

> 

w  =  w;  r  Make  compiler  happy  V 
cbs  =  NULL; 

}  r  end  editCtriAddButtonCB  V 

/ . . . 

void  editCtrlModifyButtonCB  (w,  shell,  cbs) 

Widget  w,  shell; 

XmPushButtonCallbackStruct  *cbs; 

{ 

Card  Data  ‘card  Data; 

XtVaGetValues  (shell,  XmNuserData,  &cardData,  NULL); 
replace  Notify  =  True; 

descriptionToWindow(cardData->descriptionlist); 

w  =  w;  t*  Make  compiler  happy  */ 
cbs  =  NULL; 

}  P  end  editCtri  Modify  Button  V 

/ . . . . / 

void  editCtriDeleteButtonCB  (w.  shell,  cbs) 

Widget  w,  shell; 

XmPushButtonCallbackStruct  *cbs; 

{ 

int  index; 

CardData  'card Data; 

int  count  =  0,  ‘positjonList  =  NULL; 

XmString  item; 

extern  void  deleteUpdateO; 

XtVaGetValues  (shell,  XmNuserOata,  &cardData,  NULL); 

r  Get  the  current  list  selection  V 

if  (index  =  getLtstPosibon  (cardData->descriptionlist))  { 

item  =  XmStnngCreateSimple  fEN*'); 
XmUstDeselectltem(cardData->descriptionlist,  item); 

XmString  Free  (item) ; 

deleteUpdate (card Data ->descriptionlist,  position,  checkList); 

if  (XmListGetSelectedPos  (cardData->descriptionlist  &  position  List  Scount))  { 
)GnListDeletePositions  (cardData->descriptionlist,  positionList  count); 

XtFree  ((char  *)positionList); 

} 

XmListSelectPos  (cardData->descriptionlist  index,  TRUE); 
if  (lXmLHstPosSelected(cardData->descriptionlist  index)) 

XmListSelectPos  (cardData->descriptionlist  index  - 1,  TRUE); 

> 

w  =  w;  r  Make  compiler  happy  */ 
cbs  =  NULL; 


>  r  end  editCtriDeleteButtonCB  V 

/ . / 

void  editCtri CopyButtonCB  (w,  shell,  cbs) 

Widget  w,  shell; 

XmPushButtonCallbackStruct  *cbs; 

{ 

int  index; 

CardData  *cardData; 

XmString  item; 

extern  struct  link  *copyUpdate(); 

XtVaGetValues  (shell,  XmNuserData,  &cardData,  NULL); 

/•  Get  the  current  list  selection  V 

if  (index  =  getListPosition  (cardData->descriptionlist))  { 

item  =  XmStnngCreateSimple  ("EN"); 
XmUstDeselectttem(cardData->descriptionlist,  item); 
XmStringFree(item); 

bufferList  =  copyUpdate(cardData-»descriptionlist,  position, 
bufferList); 

if  ((bufferList) 
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return; 

) 

w~w,r  Make  compiler  happy  V 
cbs  =  NULL; 


}  r  end  editCtriCopyButtonCB  V 

!••••" . . . . . I 

void  editCtriCutButtonCB  (w,  shell,  cbs) 

Widget  w,  shell; 

XmPushButtonCallbackStruct  *cbs; 

{ 

int  index; 

Card  Data  ‘card  Data; 

int  count  =  0,  *positionUst  =  NULL; 

XmString  item; 

extern  struct  link  'cutUpdateO; 

XtVaGetValues  (shell,  XmNuserData,  &cardData,  NULL); 

r  Get  the  current  list  selection  */ 

if  (index  =  getUstPosition  (cardData->descriptionlist))  { 

item  =  XmStringCreateSimple  ("ENT); 
XmUstDeselectttem(cardData->descriptionlist,  item); 

XmStringFreeOtem); 

buff e (List  =  cutUpdate(cardData->descriptionlist,  position, 
checkList,  bufferList); 

if  (IbufferList) 
return; 

if  (XmListGetSelectedPos  (cafdData->descriptionlist  &positionList,  &count))  { 
XmListDeletePositions  (cardData->de$criptionlist,  positionList.  count); 
XtFree  ((char  *)positionList); 

} 

} 

w  =  w;  T  Make  compiler  happy  V 
cbs  =  NULL; 

>  r  end  editCtriCutButtonCB  V 


void  editCtrlPasteButtonCB  (w,  shell,  cbs) 

Widget  w,  shell; 

XmPushButtonCallbackStruct  *cbs; 

{ 

int  index; 

CardData  *cardData; 

int  i  =  0,  count  -  0,  *positionList  =  NULL; 

struct  link  *node; 

extern  void  pasteUpdateO; 

XtVaGetValues  (shell,  XmNuserData.  ScardData,  NULL); 
r  Get  the  current  list  selection  */ 

if  (XmListGetSelectedPos  (cardData->descriptionlist,  &  position  List,  &count))  { 

pasteUpdate(cardData->descriptionlist  position,  checkList, 
bufferList); 

/•  Insert  string  in  cutBuffer  into  current  position  */ 
index  =  position  ListJO]; 

XtFree  ((char  *)positionList); 
node  =  bufferList; 
while  (node)  { 

XmListAddltem  (cardData->  description  list,  node->string,  index  +  0; 
node  =  node*>next 


> 

XmListDeselectAllltems  (cardData->descriptionlist); 
XmListSelectPos  (cardData->descriptionlist  index  +  i,  FALSE); 

} 

w  =  w;  T  Make  compiler  happy  V 
cbs  =  NULL; 


)  r  end  editCtrlPasteButtonCB  V 


v 


void  editCtriOkButtonCB  (w,  pane,  cbs) 
Widget  w,  pane; 

XmPushButtonCallbackStruct  *cbs; 

{ 

extern  void  editCtrlApplyButtonCB  0; 
CardData  *cardData; 


editCtrlApplyButtonCB  (w,  pane,  cbs); 

XtVaGetValues  (pane,  XmNuserData.  &cardData,  NULL); 
XtPopdown  f(cardData->shell)); 

) 

r . ‘ . V 

void  editCtrlApplyButtonCB  (w,  shell,  cbs) 
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Widget  w,  shell; 

XmPushButtonCalibackStruct  *cbs; 

{ 

Arg  args  [2]; 

Xm String  'items; 

int  i,  itemCount  =  0; 

extern  Widget  momExportList; 

extern  XmString  'GeometryCards,  'ControlCards; 

extern  int  NumGeometryCards,  NumControlCards; 

Card  Data  'card  Data: 
extern  Boolean  saveAlert; 

XtVaGetVaiues  (shell,  XmNuserOata,  &cardData,  NULL); 

r  Get  list  items  &  item  count  V 
XtSetArg  (args[0J,  XmNitems.  &items); 

XtSetArg  (args[1  j,  XmNitemCount  &  itemCount); 

XtGetValues  (cardData->descriptionlist  args,  2); 

r  Deallocate  then  allocate  room  for  cards  V 
for  (i  s  0;  i  <  cardData->numCards;  i++) 

XmStringFree  (cardData->cards(i]); 

XtFree  ((char  *)  cardData~>  cards); 

cardData->  cards  =  (XmString  *)  XtMalloc  (sizeof  {XmString)  *  itemCount); 

/*  Copy  the  items  and  itemCount  V 
for  fi  =  0;  i  <  itemCount;  i++) 
cardData*>cards[i]  =  XmStringCopy  (items  [i]); 
cardData*>numCards  =  itemCount; 

r  Update  global  variables  7 
if  (cardData->type  =  0)  { 

GeometryCards  =  ca  rd  Data ->  cards; 

NumGeometryCards  =  itemCount; 

}eise{ 

ControlCards  =  cardData->cards; 

NumControlCards  =  itemCount; 

> 

holdList  =  copyList  (checkList  holdList); 
copyCount(&record) ; 
saveAlert  =  True; 

w  -  NULL; 
cbs  =  NULL; 

>  /•  end  editCtriApplyButtonCB  7 

r . — . . / 

void  editCtriResetButtonCB  (w,  shell,  cbs) 

Widget  w,  shell; 

XmPushButtonCalibackStruct  *cbs; 

{ 

Arg  args  [2]; 

Card  Data  'card  Data; 

XtVaGetValues  (shell,  XmNuserOata,  &cardData,  NULL); 

XtSetArg  (args(0],  XmNitems,  cardData->cards); 

XtSetArg  (args[lj,  XmNitemCount,  cardData->numCards); 

XtSetValues  (cardData->descriptionlist,  args,  2); 

checkList  =  resetList  (checkList  holdList  position); 

resetCount(&record); 

updateControlData  (checkList  ALL); 

bufferList  =  emptyList(bufferList); 

XmListDeselectAllltems(cardData->descriptionlist); 

w  =  w ;  r  Make  compiler  happy  7 
cbs  =  NULL; 

}  r  end  editCtriResetButtonCB  7 

/ . . 

void  editCtriCancelButtonCB  (w,  shell,  cbs) 

Widget  w,  shell; 

XmPushButtonCalibackStruct  *cbs; 

{ 

extern  Widget  getTopShellQ; 

editCti1ResetButtonCB(w,  shell,  cbs); 
shell  =  getTopShell(shell); 

XtPopdown  (shell); 

>  r  end  editCtriCancelButtonCB  V 


fNeedControl.c: 

r 

*  Procedures  for  creating  the  Edit  Control  Cards  Window 
7 
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#indud«  "control,  h" 

•include  <Xm/Fomn.h> 
include  <Xm/Usth> 

■  include  <Xm/PanedW.h> 

•include  <Xm/PushB.h> 

>  •include  <Xm/RowColumn.h> 

•include  <Xm/TextF.h> 

•include  <Xm/Label.h> 

•include  <stdio.h> 
include  "actionArea.h" 

•include  "Ctrl  geo.  h" 

extern  Widget  topLevel; 
extern  Widget  edrtGeoSheil; 

Widget  editCtrlShell  =  NULL; 

Widget  controlUst; 

extern  void  editCtrlOkButtonCB  0; 
extern  void  editCtrlApplyButtonCB  0; 
extern  void  editCtriResetButtonCB  0; 
extern  void  editCtrtCancelButtonCB  0; 

Widget  createEditCtriWindow  Q; 
static  void  destroyCB  0; 

extern  Boolean  isPoppedUp  0; 

r,,w‘ — * . . — / 

Xm String  "updateCardsflist,  cards,  numcards) 

Widget  list; 

XmString  "cards; 
int  "numcards; 

{ 

Arg  args  [2]; 

XmString  "items; 
inti,  item  Count  =  0; 


r  Get  list  items  &  item  count  */ 

XtSetArg  (args(0],  XmNitems,  &items); 

XtSetArg  (args[lj,  XmNitemCount,  SitemCount); 

XtGetValues  (list,  args,  2); 
r  Deallocate  then  allocate  room  for  cards  */ 
for  (i  =  0;  i  <  "numcards;  i++) 

XmStringFree  (cards©; 

XtFree  ({char  *)  cards); 

if  (!  itemCount) 
return  NULL; 

cards  =  (XmString  *)  XtMalloc  (sizeof  (XmString)  *  itemCount); 
r  Copy  the  items  and  itemCount  V 
for  (i  =  0;  i  <  itemCount;  i++) 
cards[i]  =  XmStringCopy  (items©; 

"numcards  =  itemCount; 

return  cards; 

}  r  end  updateCards  */ 


void  openEditCtrlWindow  0 

{ 

Widget  shell; 

Boolean  notOpen  =  FALSE; 

CardData  "cardData; 

extern  XmString  "ControlCards; 

extern  int  NumControlCards; 

extern  struct  link  "checkList,  "bufferList; 

extern  void  setControIListO; 

extern  struct  link  "emptyListO; 

if  (editCtrlShell  —  NULL)  { 

editCtriShefl  =  createEditCtriWindow  ("Edit  Control  Cards",  ControlCards, 
NumControlCards,  1); 

notOpen  =  TRUE; 

} 

shell  =  editCtrlShell; 
if  (!isPoppedUp{shell)) 
notOpen  =  TRUE; 

if  (notOpen)  { 

Widget  pane  =  XtNameToWidget  (shell,  "pane"); 

XtVaGetValues  (pane,  XmNuserOata,  AcardData,  NULL); 
setControlList(cardData->descriptionlisL  checkList); 

ControlCards  =  updateCards(cardData->descriptionlist, 

ControlCards,  SNumControICards); 
cardData->  cards  =  ControlCards; 
cardData ->numCards  =  NumControlCards; 
bufferList  =  emptyList(bufferList); 

XtPopup  (shell,  XtGrabNone); 

> 

}  /*  end  openEditWindow  "/ 
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Widget  createEditCtrlWindow  {name,  cards,  numCards,  cardtype) 
char  *namo; 

XmString  'cards; 
int  numCards,  cardtype; 

{ 

Widget  shelf,  form,  pane,  label,  list,  rowColumn,  button; 

Arg  args  [17]; 
int  n  =  0; 

Card  Data  'cardData; 
extern  void  editCtrtAddButtonC8  0; 
extern  void  editCtrlModifyButtonCB  0; 
extern  void  editCtri  Delete  Button  C8  Qi 
extern  void  editCtriCutButtonCB  0; 
extern  void  editCtdPastoButtonCB  0; 
static  ActionArealtem  actionltems  Q  =  { 
fOk",  editCtriOkButtonCB,  NUa>, 

{•Apply**,  editCWApplyButtonCB,  NULL), 
fReset”,  editCtriResetButtonCB,  NULL}, 
fCanceT,  editCtri  CancelButtonCB,  NULL} 

>; 

static  char  'optionsQ  =  { 

"Frequency  (FR)**, 

"Loads  (LD)“, 

"Voltage  Sources  (EX)", 

"Incident  Plane  Wave  (EX)", 

Transmission  Lines  (TL)“. 

Two  Port  Networks  (NT)", 

"Insulated  Wire  (IS)", 

"Ground  Parameters  (GN)", 

"Additional  Ground  Parameters  (GD)“, 

"Upper  Medium  Parameters  (UM)", 

"Maximum  Coupling  (CP)", 

"Near  Electric  Fields  (NE)", 

"Near  Magnetic  Reids  (NH)", 

"Radiation  Patterns  (RP)", 

“Print  Options  for  Charge  (PQ)", 

"Print  Electrical  Lengths  (PS)", 

“Print  Options  for  Current  (PT)”. 

"Execute  (XQ)“ 

>; 

XmStnng  optionltems{40]; 
extern  void  newSelectActionTable  0; 

.  extern  void  editCtrlCopyButtonCB  Q; 
extern  void  newEscape Action  0; 
extern  Widget  momExportShell; 

XtSetArg  (args[0],  XmNdeleteResponse,  XmDESTROY); 
shell  =  XtCreatePopupShell  (name,  topLevelShellWidgetCIass, 
topLevel,  args,  1); 

newEscapeActjon(shell) ; 

r  Create  structure  for  storing  card  data  V 

card  Data  =  (CardData  *)  XtMalloc  (sizeof  (CardData)); 

card Data-> shell  =  cardtype  ==0  7  &editGeoShell :  SeditCtriShell; 

cardData->  cards  =  cards; 

cardData->  numCards  =  numCards; 

cardData->type  =  cardtype; 

XtSetArg  (args[0],  XmNsash Width,  1); 

XtSetArg  (args[lj,  XmNsashHeight,  1); 

pane  =  XmCreatePanedWindow  (shell,  "pane",  args,  2); 

XtVaSetValues  (pane,  XmNuserData,  cardData.  NULL); 

XtAddCallback  (shell,  XmNdestroyCallback,  destroyCB,  pane); 
form  =  XmCreateForm  (pane,  "form",  args,  0); 

n  =  0; 

XtSetArg  (args[n],  XmNrightAttachment,  XmATTACH_FORM);  n++; 

XtSetArg  (argsfn],  XmNrightOffset,  15);  n++; 

XtSetArg  (argsfnj,  XmNtop Attachment,  XmATTACH_FORM);  n++; 

XtSetArg  (args[n],  XmNtopOffset,  35);  n++; 

XtSetArg  (args[nj,  XmNisAligned,  True);  n++; 

XtSetArg  (args[nj,  XmNentryAlignment,  XmALIGNMENT_CENTER);  n++; 
rowColumn  =  XmCreateRowColumn  (form.  "rowColumn",  args,  n); 

r  Create  editing  buttons  */ 

button  =  XmCreatePushButton  (rowColumn,  "Add",  args,  0);  j 

XtManageChild  (button); 

XtAddCallback  (button,  XmNactivateCallback,  editCtrlAddButtonCB,  pane); 
button  =  XmCreatePushButton  (rowColumn,  "Modify”,  args,  0); 

XtManageChild  (button); 

XtAddCallback  (button,  XmNactivateCallback,  editCtriModifyButtonCB,  pane); 
button  =  XmCreatePushButton  (rowColumn,  "Delete",  args,  0); 

XtManageChild  (button); 

XtAddCallback  (button,  XmNactivateCallback,  editCtriDeleteBirttonCB,  pane); 

button  =  XmCreatePushButton  (rowColumn,  "Copy”,  args,  0); 

XtManageChild  (button); 

XtAddCallback  (button,  XmNactivateCallback,  editCtrlCopyButtonCB,  pane); 

button  -  XmCreatePushButton  (rowColumn,  "Cut",  args,  0); 

XtManageChild  (button); 
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XtAddCallback  (button,  XmNactivateCallback,  editCtriCutButtonCB,  pane); 
button  =  XmCreatePush  Button  (rowColumn,  “Paste’*,  args,  0); 
XtManageChild  (button); 

XtAddCallback  (button,  XmNactivateCallback,  editCtrlPasteButtonCB,  pane); 

XtManageChild  (rowColumn); 

/*  Create  list  box  for  holding  cards  7 
n  =  0; 

XtSetArg  (args[n]t  XmNrightAttachment  XmATTACH_WIDGET);  n++; 
XtSetArg  (args[nj,  XmNrightWidget  rowColumn);  n++; 

XtSetArg  (args[nj,  XmNrightOffset  10);  n++; 

XtSetArg  (args[nj,  XmNtopAttachment,  XmATTACH_FORM);  n++; 

XtSetArg  (args[nj,  XmNtopOffset  15);  n++; 

XtSetArg  (args[nj,  XmNentiyAlignment,  XmALIGNMENT_CENTER);  n++; 
rowColumn  =  XmCreateRowColumn  (form,  "rowColumnl"  args,  n); 
label  =  XmCreateLabel(rowColumn, 

"  Problem  Description  ", 

NULL,  0); 

XtManageChild(labei); 
n  =  0; 

XlSetArg(args[n],  XmNselection Policy,  XmEXTENDED_SELECT);  n++; 

XtSetArg  (argsfnj,  XmNvisibleltemCount  20);  n++; 

list  =  XmCreateScroiledUst  (rowColumn,  “listl",  args,  n); 

cardData->descriptionlist  =  list; 
controlList  =  list; 

XtManageChild  (list); 

XtManageChild  (rowColumn); 

n  =  0; 

XtSetArg  (args[n],  XmNleftAttachment,  XmATTACH_FORM);  n++; 

XtSetArg  (args[n),  XmNleftOffset,  15);  n++; 

XtSetArg  (args[nj,  XmNrightAttachment,  XmATTACH_WIDGET);  n++; 
XtSetArg  (args(n),  XmNrightWidget,  rowColumn);  n++; 

XtSetArg  (args(nj,  XmNrightOffset,  10);  n++; 

XtSetArg  (argsfnj,  XmNtopAttachment  XmATTACH_FORM);  n++; 

XtSetArg  (args[nj,  XmNtopOffset  15);  n++; 

XtSetArg  (args[nj,  XmNisAIigned,  True);  n++; 

XtSetArg  (args[nj,  XmNentryAlignment,  XmAL!GNMENT_CENTER);  n++; 
rowColumn  =  XmCreateRowColumn  (form,  "rowColumn2“,  args,  n); 
label  =  XmCreateLabel(rowColumn,  "Options",  NULL,  0); 
XtManageChild(label); 
n  =  0; 

XtSetArg  (args[n],  XmNvisibleltemCount  20);  n++; 
list  =  XmCreateScrolledList  (rowColumn,  “Iist2",  args,  n); 
cardData->optionlist  =  list; 

XtManageChild  (list); 

XtManageChild  (rowColumn); 
for  (n  =  0;  n  <  XtNumber(options);  n++) 
optionltems[n]  =  XmStringCreateSimple  (optionsjn]}; 

XtVaSetValues  (list  XmNitems,  optionltems, 

XmNitemCount  n,  NULL); 

XmListSelectPos  (list  1 .  False); 
for  (n  =  0;  n  <  XtNumber(options);  n++) 

XmStringFree  (optionltems[n]); 

XtManageChild  (form); 

T  Create  action  area  at  bottom  of  window  V 

actionltems(0].data  =  (XtPointer)  pane; 

action!tems[1].data  =  (XtPointer)  pane; 

actionltems[2].data  =  (XtPointer)  pane; 

actionltemspj.data  =  (XtPointer)  pane; 

createActionArea  (pane,  actionttems,  XtNumber  (actionltems)); 

XtManageChild  (pane); 

return  (shell); 

>  r  end  createSelectionBox  7 

static  void  destroyCB  (w,  pane) 

Widget  w,  pane; 

{ 

CardData  *cardData; 

XtVaGetValues  (pane,  XmNuserData,  &cardData,  NULL); 

•(cardData ->shell)  =  NULL; 

XtFree  ((char  *)  cardData); 

w  =  w ;  r  Make  compiler  happy  7 

)  r  end  destroyCB  7 
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